Chuyển đổi ngày tháng sang chữ (1 người xem)

nam739478 · 26/11/12

tôi muốn đổi dạng ngày tháng sang chữ thì làm như thế nào?
VD tại A1 có dang 23/11/2012 sang A3 đổi thành "ngày hai mươi ba tháng mười một năm hai nghìn mười hai"
mong các Pro giup đỡ
mong sớm nhận được câu trả lời

nhat chi mai · 26/11/12

nam739478 đã viết:
tôi muốn đổi dạng ngày tháng sang chữ thì làm như thế nào?
VD tại A1 có dang 23/11/2012 sang A3 đổi thành "ngày hai mươi ba tháng mười một năm hai nghìn mười hai"
mong các Pro giup đỡ
mong sớm nhận được câu trả lời

Em chỉ chuyển được ra dạng là ngày 23 tháng 11 năm 2012 thôi, chứ ra chữ xin nhờ các Thầy chỉ giúp em huhu.file em làm đây ạ. +-+-+-+

LienDong · 26/11/12

nguyencanh160890 đã viết:
Em chỉ chuyển được ra dạng là ngày 23 tháng 11 năm 2012 thôi, chứ ra chữ xin nhờ các Thầy chỉ giúp em huhu.file em làm đây ạ.

1/ Cái này chỉ lập trình thôi bạn, giống như đọc số thành chữ
2/ Muốn làm bằng công thức thì fài lập rất nhiều Name

nhat chi mai · 26/11/12

LienDong đã viết:
1/ Cái này chỉ lập trình thôi bạn, giống như đọc số thành chữ
2/ Muốn làm bằng công thức thì fài lập rất nhiều Name

bạn thử làm rồi cho file đính kèm tớ xem với được không? hix.

trung.aof · 26/11/12

Hàm này hơi dài nhưng cũng dùng được:
Attribute VB_Name = "HTNgay_Function"
'Option Explicit
Function HTNgay(ByVal Vdate As Date) As String
On Error Resume Next
Vdate = Format(Vdate, "dd/mm/yyyy")
If IsDate(Vdate) = False Then HTNgay = "B" & ChrW$(7841) & "n ph" & ChrW$(7843) & "i ch" & ChrW$(7885) & "n l" & ChrW$(224) & " ngày! -By: Htrung.aof@gmail.com": Exit Function
Hang = Array("None", "ng" & ChrW$(224) & "n", "tr" & ChrW$(259) & "m", "m" & ChrW$(432) & ChrW$(417) & "i", Space(0))
Dem = Array("không", "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")
'Doc so ngày
VNgay = Left(Vdate, 2)
If Val(VNgay) < 10 Then
DNgay = "Ngày" & Space(1) & "m" & ChrW$(7891) & "ng" & Space(1) & Dem(Val(VNgay))
ElseIf Val(VNgay) = 10 Then
DNgay = "Ngày" & Space(1) & "m" & ChrW$(7891) & "ng" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i"
ElseIf Val(VNgay) > 10 And Val(VNgay) < 20 And Val(VNgay) <> 15 Then
DNgay = "Ngày" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & Dem(Val(Right(VNgay, 1)))
ElseIf Val(VNgay) > 10 And Val(VNgay) < 20 And Val(VNgay) = 15 Then
DNgay = "Ngày" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & "l" & ChrW$(259) & "m"
ElseIf Val(VNgay) >= 20 And Val(Right(VNgay, 1)) = 0 Then
DNgay = "Ngày" & Space(1) & Dem(Val(Left(VNgay, 1))) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i"
ElseIf Val(VNgay) >= 20 And Val(Right(VNgay, 1)) = 1 Then
DNgay = "Ngày" & Space(1) & Dem(Val(Left(VNgay, 1))) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & "m" & ChrW$(7889) & "t"
ElseIf Val(VNgay) >= 20 And Val(Right(VNgay, 1)) <> 0 And Val(Right(VNgay, 1)) <> 1 And Val(Right(VNgay, 1)) <> 5 Then
DNgay = "Ngày" & Space(1) & Dem(Val(Left(VNgay, 1))) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & Dem(Val(Right(VNgay, 1)))
ElseIf Val(VNgay) = 25 Then
DNgay = "Ngày" & Space(1) & "hai" & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & "l" & ChrW$(259) & "m"
End If
'Doc so cua tháng
vthang = Val(Mid(Vdate, 4, 2))
If vthang = 12 Then
Dthang = "tháng" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & "hai"
ElseIf vthang = 11 Then
Dthang = "tháng" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & "m" & ChrW$(7897) & "t"
ElseIf vthang = 10 Then
Dthang = "tháng" & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i"
Else
Dthang = "tháng" & Space(1) & Dem(vthang)
End If
'Doc so cua nam
Vnam = Right(Vdate, 4)
N1 = Val(Mid(Vnam, 1, 1))
N2 = Mid(Vnam, 2, 3)
DNgan = Dem(N1) & Space(1) & "ngàn"
If Val(N2) = 0 Then
Dtram = Space(0)
Else
N11 = Mid(N2, 1, 1)
N22 = Mid(N2, 2, 1)
N33 = Mid(N2, 3, 1)
For i = 2 To 3
Nhom = Val(Mid(N2, i, 1))
Dtram = Dem(N11) & Space(0)
Select Case i
Case 2 And N22 = 0 And N33 = 0
le = Hang(2)
Case 2 And N22 = 0
le = Hang(2) & Space(1) & "l" & ChrW$(7867) & Space(1) & Dem(N33)
Case 2 And N22 = 1 And N33 = 0
le = Hang(2) & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i"
Case 2 And N22 = 1 And N33 = 5
le = Hang(2) & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & "l" & ChrW$(259) & "m"
Case 2 And N22 = 1 And N33 <> 0 And N33 <> 5
le = Hang(2) & Space(1) & "m" & ChrW$(432) & ChrW$(7901) & "i" & Space(1) & Dem(N33)
Case 2 And N22 >= 2 And N33 = 0
le = Hang(2) & Space(1) & Dem(N22) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i"
Case 2 And N22 >= 2 And N33 = 1
le = Hang(2) & Space(1) & Dem(N22) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & "m" & ChrW$(7889) & "t"
Case 2 And N22 >= 2 And N33 = 5
le = Hang(2) & Space(1) & Dem(N22) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & "l" & ChrW$(259) & "m"
Case 2 And N22 >= 2 And N33 <> 0 And N33 <> 1 And N33 <> 5
le = Hang(2) & Space(1) & Dem(N22) & Space(1) & "m" & ChrW$(432) & ChrW$(417) & "i" & Space(1) & Dem(N33)
End Select
Next
End If
KetQua = KetQua & Space(1) & DNgay & "," & Space(1) & Dthang & "," & Space(1) & "n" & ChrW$(259) & "m" & Space(1) & DNgan & Space(1) & Dtram & Space(1) & le & " '/."
HTNgay = UCase(Left(Trim(KetQua), 1)) & Mid(Trim(KetQua), 2)
End Function

nhat chi mai · 26/11/12

trời, vba à Anh??? có thể dùng hàm được không Anh nhỉ? +-+-+-+

, mà em có đọc qua một số bài trên diễn đàn có thể dùng định dạng, nhưng không tài nào làm được như yêu cầu của đề bài, ra toàn dạng text thôi à huhu

ndu96081631 · 26/11/12

nguyencanh160890 đã viết:
trời, vba à Anh??? có thể dùng hàm được không Anh nhỉ?, mà em có đọc qua một số bài trên diễn đàn có thể dùng định dạng, nhưng không tài nào làm được như yêu cầu của đề bài, ra toàn dạng text thôi à huhu

Hướng dẫn:
- Bấm Start\Run, gõ lệnh Notepad vào rồi Enter (để mở chương trình Notepad)
- Copy nguyên "đám rừng" trên cho vào cừa số Notepad
- Save file thành tên tùy ý
- Khởi động Excel
- Bấm Alt + F11 vào cửa sổ lập trình
- Vào menu File, chọn lệnh Import file...
- Trong cửa sổ Import file, khung Type of file chọn All Files (*.*)
- Duyệt đến file text đã lưu khi nãy rồi bấm Open ---> Sẽ thấy 1 module xuất hiện với code là "đám rừng" kia
- Bấm Alt + Q để trở về bảng tính
- Gõ ngày tháng gì đó vào A1
- Cell B1, gõ công thức =HTNgay(A1)
Xong!
Tuy nhiên, với ngày tháng có vài số đọc không giống như đọc số. Ví dụ:
4/4/2010 thì phải đọc là ngày bốn tháng tư năm hai ngàn không trăm mười chứ không phải là ngày bốn tháng bốn năm hai ngàn không trăm mười đâu

nhat chi mai · 26/11/12

ndu96081631 đã viết:
Hướng dẫn:
- Bấm Start\Run, gõ lệnh Notepad vào rồi Enter (để mở chương trình Notepad)
- Copy nguyên "đám rừng" trên cho vào cừa số Notepad
- Save file thành tên tùy ý
- Khởi động Excel
- Bấm Alt + F11 vào cửa sổ lập trình
- Vào menu File, chọn lệnh Import file...
- Trong cửa sổ Import file, khung Type of file chọn All Files (*.*)
- Duyệt đến file text đã lưu khi nãy rồi bấm Open ---> Sẽ thấy 1 module xuất hiện với code là "đám rừng" kia
- Bấm Alt + Q để trở về bảng tính
- Gõ ngày tháng gì đó vào A1
- Cell B1, gõ công thức =HTNgay(A1)
Xong!
Tuy nhiên, với ngày tháng có vài số đọc không giống như đọc số. Ví dụ:
4/4/2010 thì phải đọc là ngày bốn tháng tư năm hai ngàn không trăm mười chứ không phải là ngày bốn tháng bốn năm hai ngàn không trăm mười đâu

Thưa Thầy!em đã làm cho nó chạy thôi, nhưng em xin phép hỏi thêm tí nữa dòng chữ ra thế này ạ (Ngày mười một, , năm hai ngàn không trăm mười hai '/.)em không hiểu gì nhưng làm theo hướng dẫn thôi.

vanle33 · 26/11/12

nguyencanh160890 đã viết:
Thưa Thầy!em đã đọc và làm theo hướng dẫn ạ, nhưng nó trả về giá trị Name? là thế nào ạ???

Anh làm được rồi theo cách của bác ndu nè
Cô thử file với a đính kèm đây
Công thức =HTNgay(A1)

vanle33 · 26/11/12

nguyencanh160890 đã viết:
Thưa Thầy!em đã làm cho nó chạy thôi, nhưng em xin phép hỏi thêm tí nữa dòng chữ ra thế này ạ (Ngày mười một, , năm hai ngàn không trăm mười hai '/.)em không hiểu gì nhưng làm theo hướng dẫn thôi.

Cô xem file ví dụ ngày tháng năm trong đó chưa
Làm gì có "Ngày mười một, ," không có khoảng trắng giữa hai dấu , đâuChú ý ngày tháng định dạng dd/mm/yyyy

dongducnhiem · 26/11/12

vanle33 đã viết:
Anh làm được rồi theo cách của bác ndu nè
Cô thử file với a đính kèm đây
Công thức =HTNgay(A1)

Bạn nhập giùm tôi 12/03/1968 (dd/mm/yyyy)-> KQ như thế nào nhỉ?

vanle33 · 26/11/12

dongducnhiem đã viết:
Bạn nhập giùm tôi 12/03/1968 (dd/mm/yyyy)-> KQ như thế nào nhỉ?

Kết quả là Ngày mười hai, tháng ba, năm một ngàn chín trăm sáu mươi tám '/.
Font chữ là Times New roman
Mình chỉ Copy Công thức ở trên và Enter là ra kết quả đó

dongducnhiem · 26/11/12

vanle33 đã viết:
Kết quả là Ngày mười hai, tháng ba, năm một ngàn chín trăm sáu mươi tám '/.
Font chữ là Times New roman
Mình chỉ Copy Công thức ở trên và Enter là ra kết quả đó

Bạn xem hình ......................

vanle33 · 26/11/12

dongducnhiem đã viết:
Bạn xem hình ......................

Ủa lạ nhỉ
Máy mình nhập bất kỳ ngày nào trong hình của bạn đều cho ra kết quả đúng (cả về ngày, tháng, năm)

nhat chi mai · 26/11/12

To Vanle, em đã hiểu lý do sao em sai vì do em định dạng trong control panel!
To Anh "dongducnhiem", em làm cũng ra như trong file đây ạ.em không hiểu code viết gì, lệnh ra sao , em chỉ làm theo hướng dẫn của Thầy ndu thấy nó ra kết quả đúng...

dongducnhiem · 26/11/12

nguyencanh160890 đã viết:
To Vanle, em đã hiểu lý do sao em sai vì do em định dạng trong control panel!
To Anh "dongducnhiem", em làm cũng ra như trong file đây ạ.em không hiểu code viết gì, lệnh ra sao , em chỉ làm theo hướng dẫn của Thầy ndu thấy nó ra kết quả đúng...

Cái này tôi cũng nghĩ nó liên quan đến Control Panel
Trong mục Shot date format của tôi là :dd/MM/yy

vanle33 · 26/11/12

dongducnhiem đã viết:
Cái này tôi cũng nghĩ nó liên quan đến Control Panel
Trong mục Shot date format của tôi là :dd/MM/yy

Vậy thì bạn thử chỉnh lại Short date là dd/mm/yyyy rồi tắt Excel và mở lại file của mình, đánh lại ngày và công thức/Enter xem ra kết quả như thế nào?
Máy tính của mình bất cứ lúc nào Ghost Win xong thì đều chỉnh luôn Short date như trên. Nên chắc không bị lỗi như bạn

dongducnhiem · 26/11/12

vanle33 đã viết:
Vậy thì bạn thử chỉnh lại Short date là dd/mm/yyyy rồi tắt Excel và mở lại file của mình, đánh lại ngày và công thức/Enter xem ra kết quả như thế nào?
Máy tính của mình bất cứ lúc nào Ghost Win xong thì đều chỉnh luôn Short date như trên. Nên chắc không bị lỗi như bạn

Cái này chỉ hỏi lý do vì sao thôi, chứ tôi kg sử dụng addins này!

dhn46 · 26/11/12

Cũng thử vọc vạch tí, cái này cũng tùy biến từ hàm đọc số trên GPE, tùy biến 1 chút, fix tháng 4 (mới tập VBA nên code củ chuối)
=docngay()

nam739478 · 26/11/12

tôi làm như thế này
ví dụ A1 = 26/11/2012
tại B1 ="Ngay "&vnd(DAY(A1))&" thang "&vnd(MONTH(A1))&" nam "&vnd(YEAR(A1))
kết quả cho: (ngày Hai mươi sáu tháng Mười một năm Hai ngàn, không trăm mười hai)
vậy làm sao tôi bỏ được dấu phẩy (,) ở chỗ năm hai ngàn không trăm mười hai vậy các Pro ơi
mong câu trả lời

vanle33 · 26/11/12

nam739478 đã viết:
tôi làm như thế này
ví dụ A1 = 26/11/2012
tại B1 ="Ngay "&vnd(DAY(A1))&" thang "&vnd(MONTH(A1))&" nam "&vnd(YEAR(A1))
kết quả cho: (ngày Hai mươi sáu tháng Mười một năm Hai ngàn, không trăm mười hai)
vậy làm sao tôi bỏ được dấu phẩy (,) ở chỗ năm hai ngàn không trăm mười hai vậy các Pro ơi
mong câu trả lời

Bạn phải gửi kèm cái add in của hàm vnd() lên kèm thì các anh, em mới biết cách sửa cho bạn chứ!

nam739478 · 26/11/12

add in là gì? tui ko biet
chỉ biết là đang dùng VNtools bản 1.1.4

vanle33 · 26/11/12

nam739478 đã viết:
add in là gì? tui ko biet
chỉ biết là đang dùng VNtools bản 1.1.4

Là cái Code VBA khi bạn nhấn Alt+F11 đó
Như cái Code trong file của mình thì công thức là =HTNgay()

nam739478 · 26/11/12

khi ấn Alt + F11 chỉ hiện lên 1 cửa sổ trắng tinh không có chữ gì cả

vanle33 · 26/11/12

nam739478 đã viết:
khi ấn Alt + F11 chỉ hiện lên 1 cửa sổ trắng tinh không có chữ gì cả

Bạn tải file bài #9
Mở ra nhấn Alt+F11nhấn Ctrl+R tại cửa sổ bên trái nhấn vào Module /nháy kép vào HTNgay_Function xem cửa sổ bên phải đó là gì?

nam739478 · 26/11/12

một loạt công thức trông như ma trận ấy

ndu96081631 · 26/11/12

nguyencanh160890 đã viết:
To Vanle, em đã hiểu lý do sao em sai vì do em định dạng trong control panel!
To Anh "dongducnhiem", em làm cũng ra như trong file đây ạ.em không hiểu code viết gì, lệnh ra sao , em chỉ làm theo hướng dẫn của Thầy ndu thấy nó ra kết quả đúng...

Đây chính là cái sai nghiêm trọng của code (không phải bạn sai)
Đúng ra đã là code thì sẽ không vì setting trong Control Panel mà lại cho kết quả sai được
Nếu là tôi thì tôi làm như sau:
1> Lượm đại 1 code đọc số nào đó cảm thấy vừa ý cho vào code
2> Viết thêm 1 code đọc ngày tháng (dựa vào code đọc số đã có)
Ví dụ:
1> Tôi có code đọc số (lượm của bạn huuthang_bd) với cú pháp =DocSo(Number)
2> Giờ tôi viết thêm code đọc ngày tháng như sau:

Mã:

Function SpeakVIEDate(ByVal lDate As Long) As String
  Dim slb1 As String, slb2 As String, slb3 As String
  Dim sDay As String, sMonth As String, sYear As String
  Dim lDay As Long, lMonth As Long, lYear As Long
  
  slb1 = "Ngày "
  slb2 = "Tháng "
  slb3 = "N" & ChrW(259) & "m "
  
  lDay = Day(lDate)
  lMonth = Month(lDate)
  lYear = Year(lDate)
  
  sDay = DocSo(lDay)
  If lMonth = 1 Then
    sMonth = "giêng"
  ElseIf lMonth = 4 Then
    sMonth = "t" & ChrW(432)
  Else
    sMonth = DocSo(lMonth)
  End If
  sYear = DocSo(Year(lDate))
  SpeakVIEDate = slb1 & sDay & ", " & slb2 & sMonth & ", " & slb3 & sYear
End Function

Cú pháp đọc ngày tháng =SpeakVIEDate(A1) với A1 là ngày tháng nào đó
Code này không bị ảnh hưởng bởi setting trong control panel
Các bạn kiểm tra thử nhé (viết đại, chưa kiểm tra hết các trường hợp)

vanle33 · 26/11/12

ndu96081631 đã viết:
Đây chính là cái sai nghiêm trọng của code (không phải bạn sai)
Đúng ra đã là code thì sẽ không vì setting trong Control Panel mà lại cho kết quả sai được
Nếu là tôi thì tôi làm như sau:
1> Lượm đại 1 code đọc số nào đó cảm thấy vừa ý cho vào code
2> Viết thêm 1 code đọc ngày tháng (dựa vào code đọc số đã có)
Ví dụ:
1> Tôi có code đọc số (lượm của bạn huuthang_bd) với cú pháp =DocSo(Number)
2> Giờ tôi viết thêm code đọc ngày tháng như sau:

Mã:

Function SpeakVIEDate(ByVal lDate As Long) As String Dim slb1 As String, slb2 As String, slb3 As String Dim sDay As String, sMonth As String, sYear As String Dim lDay As Long, lMonth As Long, lYear As Long slb1 = "Ngày " slb2 = "Tháng " slb3 = "N" & ChrW(259) & "m " lDay = Day(lDate) lMonth = Month(lDate) lYear = Year(lDate) sDay = DocSo(lDay) If lMonth = 1 Then sMonth = "giêng" ElseIf lMonth = 4 Then sMonth = "t" & ChrW(432) Else sMonth = DocSo(lMonth) End If sYear = DocSo(Year(lDate)) SpeakVIEDate = slb1 & sDay & ", " & slb2 & sMonth & ", " & slb3 & sYear End Function

Cú pháp đọc ngày tháng =SpeakVIEDate(A1) với A1 là ngày tháng nào đó
Code này không bị ảnh hưởng bởi setting trong control panel
Các bạn kiểm tra thử nhé (viết đại, chưa kiểm tra hết các trường hợp)

1) Code của bác có sửa được "tháng bốn" thành "tháng tư" không a?
Hay bác sửa Code ở bài #6 cho em để sửa được vấn đề trên nhé

ndu96081631 · 26/11/12

vanle33 đã viết:
1) Code của bác có sửa được "tháng bốn" thành "tháng tư" không a?
Hay bác sửa Code ở bài #6 cho em để sửa được vấn đề trên nhé

Tải file của tôi về xem trước đi rồi ta tiếp tục nhé

vanle33 · 26/11/12

ndu96081631 đã viết:
Tải file của tôi về xem trước đi rồi ta tiếp tục nhé

Tạm thời OK rồi (em đã thử mấy trường hợp rồi)
Em muốn đổi tên cú pháp hàm là =HTNgay() thì thế nào a?

ndu96081631 · 26/11/12

vanle33 đã viết:
Tạm thời OK rồi (em đã thử mấy trường hợp rồi)
Em muốn đổi tên cú pháp hàm là =HTNgay() thì thế nào a?

Bấm Alt + F11 vào code
Bấm Ctrl + H, thay chữ SpeakVIEDate thành HTNgay
Xong!
(Sao mà tôi ghét mấy cái biến, tên hàm, tên Sub tiếng Việt thế không biết ---> Nhìn nó chẳng ra làm sao cả ---> Một mai có thằng Tây nó vào xem, bảo đảm nó sẽ không bao giờ biết HTNgay là cái quỷ gì cả, nhưng nếu thấy chứ SpeakVIEDate, tôi tin nó biết đó là gì liền)

vanle33 · 26/11/12

ndu96081631 đã viết:
Bấm Alt + F11 vào code
Bấm Ctrl + H, thay chữ SpeakVIEDate thành HTNgay
Xong!
(Sao mà tôi ghét mấy cái biến, tên hàm, tên Sub tiếng Việt thế không biết ---> Nhìn nó chẳng ra làm sao cả ---> Một mai có thằng Tây nó vào xem, bảo đảm nó sẽ không bao giờ biết HTNgay là cái quỷ gì cả, nhưng nếu thấy chứ SpeakVIEDate, tôi tin nó biết đó là gì liền)

Em đổi rồi
Nhưng có mấy khi có "thằng Tây" vào xem mà nhiều người Việt xem mà bác
Trong Code của bác không sử dụng chữ "mồng" cho những ngày nhỏ hơn 10 a?
Có phải do chính tả không cần dùng chữ "mồng" vậy bác

ndu96081631 · 26/11/12

vanle33 đã viết:
Trong Code của bác không sử dụng chữ "mồng" cho những ngày nhỏ hơn 10 a?
Có phải do chính tả không cần dùng chữ "mồng" vậy bác

Khi tôi còn nhỏ, nghe các ông bà dạy rằng: Dùng "Mồng" (hoặc "Mừng") cho ngày Âm Lịch, còn Dương Lịch thì không dùng
Nếu bạn thích "MỒNG" cứ vào code mà sửa, chẳng hạn là vầy:

PHP:

If lDay <= 10 Then
    sDay = "m" & ChrW(7891) & "ng " & DocSo(lDay)
Else
    sDay = DocSo(lDay)
End If

vanle33 đã viết:
Nhưng có mấy khi có "thằng Tây" vào xem mà nhiều người Việt xem mà bác

Bạn sai rồi... Bất cứ một trang web nào cũng có ước muốn mang tính TOÀN CẦU ---> Tức ai có nhu cầu đều phải nghĩ đến nó... và tôi nghĩ GPE cũng sẽ không ngoại lệ đâu

vanle33 · 26/11/12

ndu96081631 đã viết:
Khi tôi còn nhỏ, nghe các ông bà dạy rằng: Dùng "Mồng" (hoặc "Mừng") cho ngày Âm Lịch, còn Dương Lịch thì không dùng
Nếu bạn thích "MỒNG" cứ vào code mà sửa

Giả sử em muốn thêm chữ "mồng" thì phải thêm Code vào chỗ nào vậy bác?
Vì đây là thêm Code chứ không phải sửa code. hi

ndu96081631 · 26/11/12

vanle33 đã viết:
Giả sử em muốn thêm chữ "mồng" thì phải thêm Code vào chỗ nào vậy bác?
Vì đây là thêm Code chứ không phải sửa code. hi

Ở trên hướng dẫn rồi còn gì
Thay đoạn sDay = DocSo(lDay) bằng đoạn code tôi post ở trên

Chuyển đổi ngày tháng sang chữ (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên thường trực

Thành viên gắn bó

Thành viên chính thức

Thành viên gắn bó

Huyền thoại GPE

Thành viên gắn bó

Thành viên gạo cội

File đính kèm

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên gắn bó

File đính kèm

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên tiêu biểu

Hướng tới tương lai

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Huyền thoại GPE

File đính kèm

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Thời gian đếm ngược.