VB 年月日转换为大写

显示全部楼层 · 2009-2-16 17:23:03

今日是2009年02月16日
我用VB写了这样一个语句
Text3.Text = Format(Now, "yyyy-mm-dd")
显示为:2009-02-16
我想将它转换为大写的
二零零九年二月十六日
请问应该怎么写才能实现呢?
mosesmoses0651
我在load中这样写
Label37.Caption = "NumChgWord(Mid(Text3.Text, 1, 1)) & NumChgWord(Mid(Text3.Text, 2, 1)) & NumChgWord(Mid(Text3.Text, 3, 1)) & NumChgWord(Mid(Text3.Text, 4, 1)) & '年' & NumChgWord2(Mid(Text3.Text, 6, 2)) & '月' & NumChgWord2(Mid(Text3.Text, 9, 2)) & '日'"
出现的是这段代码,而不是日期,是怎么回事?????

千问 · 2009-2-16 17:23:03

Public Function NumChgWord(Num As String)If Num = "0" ThenNumChgWord = "零"ElseIf Num = "1" ThenNumChgWord = "一"ElseIf Num = "2" ThenNumChgWord = "二"ElseIf Num = "3" ThenNumChgWord = "三"ElseIf Num = "4" ThenNumChgWord = "四"ElseIf Num = "5" ThenNumChgWord = "五"ElseIf Num = "6" ThenNumChgWord = "六"Else...

千问 · 2009-2-16 17:23:03

'**************************************************************************'**模块名：日期转换 - frmMain'**说
明：魔灵圣域 by icecept(魔灵)'**创建人：郭卫(魔灵)'**日
期： '**修改人：郭卫'**日...

千问 · 2009-2-16 17:23:03

Text3.Text = Format(Now, "yyyy年M月d日")...