高分求一个数字日期转汉字日期的模块～！

fralee625 2004-06-14 11:09:03

如题，谢谢

...全文

165 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

frankwong 2004-06-17

打赏
举报

"二零零四年六月一十七日星期四" 这种格式?

RUKYO 2004-06-17

打赏
举报

Format行吗？楼主要的是全中文的哦。

zlpanzy 2004-06-17

打赏
举报

vb的话就用format(变量，"YYYY年MM月DD日")

vbman2003 2004-06-17

打赏
举报

是呀，用Format就可以了

arabbob 2004-06-17

打赏
举报

Private Function ChangeNumToChina(rDate As Date) As String
Dim rNum As Integer
Dim strTemp As String
Dim arrChina(9) As String
Dim i As Integer
arrChina(0) = "零"
arrChina(1) = "一"
arrChina(2) = "二"
arrChina(3) = "三"
arrChina(4) = "四"
arrChina(5) = "五"
arrChina(6) = "六"
arrChina(7) = "七"
arrChina(8) = "八"
arrChina(9) = "九"

rNum = Year(rDate)
Dim strNum As String
Dim strstr As String
strNum = Trim(Str(rNum))
For i = 1 To Len(strNum)
rNum = Mid(strNum, i, 1)
rNum = Mid(strNum, i, 1)
strTemp = strTemp & arrChina(rNum)
Next
strTemp = strTemp & "年"
rNum = Month(rDate)
strNum = Trim(Str(rNum))
For i = 1 To Len(strNum)
rNum = Mid(strNum, i, 1)

strTemp = strTemp & arrChina(rNum)
Next
strTemp = strTemp & "月"
rNum = Day(rDate)
strNum = Trim(Str(rNum))
For i = 1 To Len(strNum)
rNum = Mid(strNum, i, 1)

strTemp = strTemp & arrChina(rNum)
Next
strTemp = strTemp & "日"
ChangeNumToChina = strTemp
End Function

還有點小問題:就是12月是一二月而不是一十二月.這個問題留給你自己搞定.