时间显示形式的问题？
如何将当前时间显示为
如：二00七年一月二十日
[解决办法]
楼上的办法可行,但有一个问题,就是月和日,月份的问题是10以上的包括10月的显示不完美,你这样做会让10月显示为一零月,11月显示为一一月,所以应该再改进一下,日的问题除上以上的以外,最好让21日显示为廿一日,31日显示为卅一日.不过这样就会让代码变得更多了,不过我认为也是应该的
[解决办法]
来个短点的，直接copy试试
num$ = " O一二三四五六七八九十 " ‘(注意前面空格）
d = " "
'处理年份
For i = 1 To 4
d = d + Mid(num$, Val(Mid(Trim(Str(Year(Now))), i, 1)) + 2, 1)
Next i
'处理月份
If Month(Now) < 11 Then d = d + "年 " + Mid(num$, Month(Now) + 2, 1) + "月 "
If Month(Now) = 11 Then d = d + "年 " + "十一月 "
If Month(Now) = 12 Then d = d + "年 " + "十二月 "
'处理日
If Day(Now) < 11 Then d = d + Mid(num$, Day(Now) + 1, 2) + "日 "
If Day(Now) > 10 And Day(Now) < 20 Then d = d + "十 " + Trim(Mid(num$, Day(Now) - 10 + 1, 1)) + "日 "
If Day(Now) > 19 And Day(Now) < 30 Then d = d + "二十 " + Trim(Mid(num$, Day(Now) - 19 + 1, 1)) + "日 "
If Day(Now) > 29 Then d = d + "三十 " + Trim(Mid(num$, Day(Now) - 29 + 1, 1)) + "日 "
Text1.Text = d
