|
|
|
| |
|
Function CNDate(ByVal MyDate As Date) As String '中文日期生成
Dim i As Long, D(2) As String, MyYear As String
MyYear = Format(MyDate, "yyyy")
For i = 1 To 4
D(0) = D(0) & Mid("○一二三四五六七八九", CInt(Mid(MyYear, i, 1)) + 1, 1)
Next
D(1) = "年" & MonthName(Month(MyDate))
D(2) = Choose(Day(MyDate) \ 10 + 1, "", "十", "二十", "三十") & Mid(" 一二三四五六七八九", Day(MyDate) Mod 10 + 1, 1) & "日"
CNDate = join(D, "")
CNDate = Replace(CNDate, " ", "")
End Function
使用方法：
如：需要在界面中的Text1控件中显示当前的中文大写日期,则代码为 Text1=CNDate(date) |
|
| |
|
|
|
