如何将数字全部转换成汉字？

来源：百度知道 编辑：UC知道 时间：2024/05/22 20:38:23
asp里面

涉及到金额的大小写的时候，如何把数字转换成大写的汉字？ 比如把1000元转换成壹仟元？

Function strUCaseMoney(ByVal AlbMoney)
Dim strDecimal, I, J, strTemp
AlbMoney = Trim(AlbMoney & "")
I = InStr(AlbMoney, ".")
If I = 0 Then
I = Len(AlbMoney) + 1
Else
strDecimal = Mid(AlbMoney, I + 1)
End If
'转换小数点以前
strUCaseMoney = ""
J = 1
For I = I - 1 To 1 Step -1
Select Case Mid(AlbMoney, I, 1)
Case "0": strTemp = "零"
Case "1": strTemp = "壹"
Case "2": strTemp = "贰"
Case "3": strTemp = "叁"
Case "4": strTemp = "肆"
Case "5": strTemp = "伍"
Case "6": strTemp = "陆"
Case "7": strTemp = "柒"
Case "8": strTemp = "捌"
Case "9": strTemp = "玖"
End S