如何将日期格式转换成中文汉字表达

wolfwei

我是一个初学者,在使用数据库时往往需要在打印时取中文汉字格式表达日期,如"2006-10-10"在打印如何能够用"二〇〇六年十月十日"表达,使用什么函数?谢谢各位大虾.

一点通

请到这里看一下

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=2&replyID=58273&id=11836&skin=0

wolfwei

啊哈，无人管我啊..............呜呜呜呜呜呜.............

一点通

善于搜索,有些问题在你问之前可以已有答案了,并非一定要针对你的问题作解答的

wolfwei

谢谢一点通老师，知道了。

6831860

给你函数。。

Function Date2Chinese(iDate) '该函数将当前日期转化为中文形式
Dim num(10) '定义数组
Dim iYear
Dim iMonth
Dim iDay
num(0) = "〇"
num(1) = "一"
num(2) = "二"
num(3) = "三"
num(4) = "四"
num(5) = "五"
num(6) = "六"
num(7) = "七"
num(8) = "八"
num(9) = "九"
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
Date2Chinese = num(iYear \ 1000) + _
num((iYear \ 100) Mod 10) + num((iYear \ 10) Mod 10) + num(iYear Mod 10) + "年"
If iMonth >= 10 Then
If iMonth = 10 Then
Date2Chinese = Date2Chinese + "十" + "月"
Else
Date2Chinese = Date2Chinese + "十" + num(iMonth Mod 10) + "月"
End If
Else
Date2Chinese = Date2Chinese + num(iMonth Mod 10) + "月"
End If
If iDay >= 10 Then
If iDay = 10 Then
Date2Chinese = Date2Chinese + "十" + "日"
ElseIf iDay = 20 Or iDay = 30 Then
Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + "日"
ElseIf iDay > 20 Then
Date2Chinese = Date2Chinese + num(iDay \ 10) + "十" + num(iDay Mod 10) + "日"
Else
Date2Chinese = Date2Chinese + "十" + num(iDay Mod 10) + "日"
End If
Else
Date2Chinese = Date2Chinese + num(iDay Mod 10) + "日"
End If
End Function

wd0830

学习了，可是不知道，找个函数要放到哪里啊
唉，菜鸟才开始学习