作业帮如何将数字全部转换成汉字?asp里面涉及到金额的大小写的时候,如何把数字转换成大写的汉字?比如把1000元转换成壹仟元?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/08 07:12:29
如何将数字全部转换成汉字?asp里面涉及到金额的大小写的时候,如何把数字转换成大写的汉字?比如把1000元转换成壹仟元?
如何将数字全部转换成汉字?
asp里面
涉及到金额的大小写的时候,如何把数字转换成大写的汉字?比如把1000元转换成壹仟元?
如何将数字全部转换成汉字?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 Select
'IF Int(Mid(AlbMoney,I,1))>0 Then
Select Case J
Case 1:strTemp = strTemp '& "圆"
Case 2:strTemp = strTemp & "拾"
Case 3:strTemp = strTemp & "佰"
Case 4:strTemp = strTemp & "仟"
Case 5:strTemp = strTemp & "万"
Case 6:strTemp = strTemp & "拾"
Case 7:strTemp = strTemp & "佰"
Case 8:strTemp = strTemp & "仟"
Case 9:strTemp = strTemp & "亿"
End Select
'End IF
strUCaseMoney = strTemp & strUCaseMoney
J = J + 1
Next
'转换小数
If strDecimal "" Then
For I = 1 To Len(strDecimal)
Select Case Mid(strDecimal,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 Select
Select Case I
Case 1:strTemp = strTemp & "角"
Case 2:strTemp = strTemp & "分"
Case 3:strTemp = strTemp & "厘"
'Case 4:strTemp=strTemp & ""
End Select
strUCaseMoney = strUCaseMoney & strTemp
Next
ElseIf strUCaseMoney "" Then
strUCaseMoney = strUCaseMoney '& "整"
End If
End Function