论坛: 编程破解 标题: VBscript写的人民币小写大写转换程序 复制本贴地址    
作者: qd_xway [qd_xway]    论坛用户   登录
<%
'将阿拉伯数字表示的金额转换为中文大写
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
%>
直接调用!比如
程序代码:

Response.Write("123.5元变成中文是:"&strUCaseMoney(123.5))



地主 发表时间: 04-03-20 11:22

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号