asp金额大小写转换

技术文章

asp金额大小写转换

时间：2008-11-26 点击：1657

< %
Function rmb(num)

num = FormatNumber(num, 2)
Dim numList
Dim rmbList
Dim numLen
Dim numChar
Dim numstr
Dim n
Dim n1, n2
Dim hz
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"

If num > 9999999999999.99 Then
   rmb = "超出范围的人民币值"
   Exit Function
End If

numstr = CStr(num * 100)
numLen = Len(numstr)
n = 1
Do While n <= numLen
   numChar = CInt(Mid(numstr, n, 1))
   n1 = Mid(numList, numChar + 1, 1)
   n2 = Mid(rmbList, numLen - n + 1, 1)
   If Not n1 = "零" Then
   hz = hz + CStr(n1) + CStr(n2)
   Else
   If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
   Do While Right(hz, 1) = "零"
   hz = Left(hz, Len(hz) - 1)
   Loop
   End If
   If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then
   hz = hz + CStr(n2)
   Else
   If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
   hz = hz + n1
   End If
   End If
   End If
   n = n + 1
Loop
Do While Right(hz, 1) = "零"
   hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "元" Then
   hz = hz + "整"
End If
rmb = hz
End Function






dim tmpnum
tmpnum="4567.7"
'调用并显示大写金额
response.write rmb(cdbl(tmpnum))
response.end



% >

asp批量添加数据

asp生成excel文件

asp文字生成图片

asp应用Cookies的技巧

ASP使用ADOX.Catalog建ACCESS数据库(*.mdb)建表

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：