Chuyển ngày tháng năm dạng số ra chữ (2 người xem)
- Thread starter tuyetanh
- Ngày gửi
Người dùng đang xem chủ đề này
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,928
- Được thích
- 11,334
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Cái này chắc phải dùng VBA hoặc một bảng phụ.
Còn nếu muốn đơn giản thì đọc thành: Ngày 12 tháng 04 năm 2009 (Format cells - Number - Custom - Type = "Ngày "dd" tháng "mm" năm "yyyy)
- Tham gia
- 30/12/06
- Bài viết
- 918
- Được thích
- 2,370
- Nghề nghiệp
- Giáo viên
Bạn phải dùng VBA. Tải hàm đọc số tiếng Việt có rất nhiều trên diễn đàn.
Ví dụ sử dụng hàm docso(number), ô A1 là ô chứa giá trị ngày 12/04/2009.
Công thức: ="Ngày " & docso(DAY(A1)) & " tháng " & docso(MONTH(A1)) & " năm " & docso(YEAR(A1))
Bạn có thể tải Ho tro Tieng Viet VBA.zip trong bài Công cụ hỗ trợ tiếng Việt cho Excel trong đó có hàm docsouni.
- Tham gia
- 3/7/07
- Bài viết
- 4,946
- Được thích
- 23,212
- Nghề nghiệp
- Dạy đàn piano
Xin góp chút hàm cho vui, sử dụng cho font Unicode:
- Thứ:
Mã:Function XWeekday(ngay As Date) As String Rng = Array("", "Ch" & ChrW(7911) & " Nh" & ChrW(7853) & "t", _ "Th" & ChrW(7913) & " Hai", "Th" & ChrW(7913) & " Ba", _ "Th" & ChrW(7913) & " T" & ChrW(432), "Th" & ChrW(7913) & " N" & ChrW(259) & "m", _ "Th" & ChrW(7913) & " Sáu", "Th" & ChrW(7913) & " B" & ChrW(7843) & "y") XWeekday = Rng(Weekday(ngay, vbSunday)) End Function
- Ngày:
Mã:Function XDay(ngay As Date) As String Rng1 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " n" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") Rng2 = Array("", "m" & ChrW(432) & ChrW(7901) & "i", _ " hai m" & ChrW(432) & ChrW(417) & "i", " ba m" & ChrW(432) & ChrW(417) & "i") Rng3 = Array("", " m" & ChrW(7889) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " l" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") Rng4 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " l" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") If Day(ngay) < 10 Then XDay = "m" & ChrW(7891) & "ng" & Rng1(Day(ngay)) Else If Day(ngay) Mod 10 = 0 Then XDay = Rng2(Int(Day(ngay) / 10)) If Day(ngay) < 20 Then XDay = Rng2(Int(Day(ngay) / 10)) & Rng4(Day(ngay) Mod 10) Else XDay = Rng2(Int(Day(ngay) / 10)) & Rng3(Day(ngay) Mod 10) End If End If End Function
- Tháng:
Mã:Function XMonth(ngay As Date) As String Rng = Array("", "Giêng", "Hai", "Ba", "T" & ChrW(432), _ "N" & ChrW(259) & "m", "Sáu", "B" & ChrW(7843) & "y", _ "Tám", "Chín", "M" & ChrW(432) & ChrW(7901) & "i", _ "M" & ChrW(432) & ChrW(7901) & "i m" & ChrW(7897) & "t", _ "M" & ChrW(432) & ChrW(7901) & "i hai") XMonth = Rng(Month(ngay)) End Function
- Năm:
Mã:Function XYear(ngay As Date) As String Dim XNam As Long Dim SoNam, SoNgan, SoTram, SoMuoi, SoLe XNam = Year(ngay) Rng1 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " n" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") Rng2 = Array("", " m" & ChrW(432) & ChrW(7901) & "i", _ " hai m" & ChrW(432) & ChrW(417) & "i", " ba m" & ChrW(432) & ChrW(417) & "i", _ " b" & ChrW(7889) & "n m" & ChrW(432) & ChrW(417) & "i", _ " n" & ChrW(259) & "m m" & ChrW(432) & ChrW(417) & "i", _ " s" & ChrW(225) & "u m" & ChrW(432) & ChrW(417) & "i", _ " b" & ChrW(7843) & "y m" & ChrW(432) & ChrW(417) & "i", _ " t" & ChrW(225) & "m m" & ChrW(432) & ChrW(417) & "i", _ " ch" & ChrW(237) & "n m" & ChrW(432) & ChrW(417) & "i") Rng3 = Array("", " m" & ChrW(7889) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " l" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") Rng4 = Array("", " m" & ChrW(7897) & "t", " hai", " ba", " b" & ChrW(7889) & "n", _ " l" & ChrW(259) & "m", " s" & ChrW(225) & "u", " b" & ChrW(7843) & "y", _ " t" & ChrW(225) & "m", " ch" & ChrW(237) & "n") For i = 1 To 3 SoNam = Mid(XNam, i, 1) If i = 1 Then SoNgan = Rng1(SoNam) & " ngàn" If i = 2 Then SoMuoi = Right(XNam, 2) * 1 If SoNam = 0 Then If SoMuoi = 0 Then XYear = SoNgan: Exit Function SoTram = " không" Else SoTram = Rng1(SoNam) End If SoTram = SoTram & " tr" & ChrW(259) & "m" End If If i = 3 Then SoLe = Right(XNam, 1) If SoNam = 0 Then If SoLe = 0 Then SoMuoi = "" Else SoMuoi = " l" & ChrW(7867) & Rng1(SoLe) Else If SoLe = 0 Then SoMuoi = Rng2(SoNam) Else If SoMuoi < 12 Then SoMuoi = Rng2(SoNam) & Rng4(SoLe) _ Else SoMuoi = Rng2(SoNam) & Rng3(SoLe) End If End If End If Next XYear = SoNgan & SoTram & SoMuoi End Function
- Tham gia
- 3/7/07
- Bài viết
- 4,946
- Được thích
- 23,212
- Nghề nghiệp
- Dạy đàn piano
Và đây là 4 hàm để tùy nghi sử dụng:
Ví dụ, ô A1 gõ =TODAY(), rồi ở đâu đó, gõ công thức để đọc, thích có dấu gì ở cuối cùng thì thêm vào ở tham số thứ hai (ví dụ 2 là dùng dấu chấm, ví dụ 4 là dùng dấu phẩy), còn không thích có cái gì ở cuối cùng hết thì... hỏng gõ thêm gì hết...
Đây là file đính kèm chứa mấy cái code ở trên. Nhờ các bạn test dùm. Thấy sai cứ nói, thấy dở cứ chửi... hỏng sao hết. Mình đang mày mò tập tọe chút VBA mà...
- Thứ ngày tháng năm:
Mã:Function ThuNgayThangNam(ngay As Date, Optional Point As String = "") As String ThuNgayThangNam = XWeekday(ngay) & ", ngày " & XDay(ngay) & " tháng " & XMonth(ngay) _ & ", n" & ChrW(259) & "m" & XYear(ngay) & Point End Function
- Ngày tháng năm:
Mã:Function NgayThangNam(ngay As Date, Optional Point As String = "") As String NgayThangNam = "Ngày " & XDay(ngay) & " tháng " & XMonth(ngay) _ & ", n" & ChrW(259) & "m" & XYear(ngay) & Point End Function
- Tháng năm:
Mã:Function ThangNam(ngay As Date, Optional Point As String = "") As String ThangNam = "Tháng " & XMonth(ngay) & ", n" & ChrW(259) & "m" & XYear(ngay) & Point End Function
- Năm:
Mã:Function Nam(ngay As Date, Optional Point As String = "") As String Nam = "N" & ChrW(259) & "m" & XYear(ngay) & Point End Function
Ví dụ, ô A1 gõ =TODAY(), rồi ở đâu đó, gõ công thức để đọc, thích có dấu gì ở cuối cùng thì thêm vào ở tham số thứ hai (ví dụ 2 là dùng dấu chấm, ví dụ 4 là dùng dấu phẩy), còn không thích có cái gì ở cuối cùng hết thì... hỏng gõ thêm gì hết...
=Thungaythangnam(A1) = Thứ Ba, ngày mười bốn tháng Tư, năm hai ngàn không trăm lẻ chín
=Ngaythangnam(A1, ".") = Ngày mười bốn tháng Tư, năm hai ngàn không trăm lẻ chín.
=Thangnam(A1) = Tháng Tư, năm hai ngàn không trăm lẻ chín
=Nam(A1, ",") = Năm hai ngàn không trăm lẻ chín,
=Ngaythangnam(A1, ".") = Ngày mười bốn tháng Tư, năm hai ngàn không trăm lẻ chín.
=Thangnam(A1) = Tháng Tư, năm hai ngàn không trăm lẻ chín
=Nam(A1, ",") = Năm hai ngàn không trăm lẻ chín,
Lần chỉnh sửa cuối:
vanle33
Thành viên gạo cội
- Tham gia
- 30/10/08
- Bài viết
- 5,951
- Được thích
- 4,000
- Giới tính
- Nam
Bạn đọc và làm theo bài #2 chưa vậy? Cách đó OK mà.
thuthulanlan8890
Thành viên mới
- Tham gia
- 20/2/17
- Bài viết
- 36
- Được thích
- 0
Mình muốn chuyển ô A1= 17/04/2017 sang ô A2= Ngày 17 tháng 04 năm 2017 thì làm sao hả bạn? Chỉ giúp mình với, Cảm ơn !!!
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
thuthulanlan8890
Thành viên mới
- Tham gia
- 20/2/17
- Bài viết
- 36
- Được thích
- 0
ok rùi, cảm ơn bạn !
