VBscript写的人民币小写大写转换程序 来源
http://www.loveyuki.com 佚名
<%
'将阿拉伯数字表示的金额转换为中文大写
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
%>
关联文档