UC知道VB 年月日转换为大写
来源：百度知道 编辑：UC知道 时间：2024/06/17 02:06:50
今日是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)) & '日'"
出现的是这段代码,而不是日期,是怎么回事?????
我用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)) & '日'"
出现的是这段代码,而不是日期,是怎么回事?????
Public Function NumChgWord(Num As String)
If Num = "0" Then
NumChgWord = "零"
ElseIf Num = "1" Then
NumChgWord = "一"
ElseIf Num = "2" Then
NumChgWord = "二"
ElseIf Num = "3" Then
NumChgWord = "三"
ElseIf Num = "4" Then
NumChgWord = "四"
ElseIf Num = "5" Then
NumChgWord = "五"
ElseIf Num = "6" Then
NumChgWord = "六"
ElseIf Num = "7" Then
NumChgWord = "七"
ElseIf Num = "8" Then
NumChgWord = "八"
ElseIf Num = "9" Then
NumChgWord = "九"
End If
End Function
Public Function NumChgWord2(Num As String)
If CInt(Num) >= 10 Then
If Mid(Num, 1, 1) = "1" Then
NumChgWord2 = "十" & NumChgWord(Mid(Num, 2, 1))
Else
NumChgWord2 = NumChgWord(Mid(Num