将数字转换成大写的金额换算函数
来源:互联网 发布:mac用win7 iso 编辑:程序博客网 时间:2024/04/28 17:51
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
%>
- 将数字转换成大写的金额换算函数
- 将数字转换成大写的金额换算函数
- 一个将数字转换成金额大写的函数
- 将数字金额转换成大写金额
- PHP 数字金额转换成中文大写金额的函数
- 将金额转换到大写数字的C#函数
- 将金额转换到大写数字的函数
- oracle里存储函数将金额数字转换成大写
- oracle里存储函数将金额数字转换成大写
- 将数字转换成大写金额
- 将数字转换成中文金额的大写形式
- 数字转换成大写金额的存储过程或函数
- 非常经典的JS,数字转换成大写金额函数
- 使用 JAVA 将数字金额转换成大写中文金额
- 数字金额的大写转换
- 数字转换成大写金额
- 数字金额转换成大写
- 数字转换成大写金额
- 提高ASP.NET性能的方法
- 世界最有影响力的CRM英雄
- Search Engine Friendly的URL设计
- Salesforce将提供超低价CRM软件
- 显示用户是否在线的方法
- 将数字转换成大写的金额换算函数
- 让APACHE防止多线程下载
- 教你将Linux配置为代理防火墙
- 轻松实现Linux下的互联网过滤功能
- 彻底删除“我的文档”
- Linux成为“文件服务器”
- 让“我的电脑”高高在上
- 用LINUX作CVS服务器
- 在xp下重装ie