人民币大写金额函数
来源:互联网 发布:依云订水软件 编辑:程序博客网 时间:2024/05/16 19:12
Public Function rmb(num As Double) As String '
num = FormatNumber(num, 2)
Dim numList As String
Dim rmbList As String
Dim numLen
Dim numChar
Dim n1, n2 As String
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"
If num > 9999999999999.99 Then
rmb = "超出范围的人民币值"
Exit Function
End If
numStr = CStr(num * 100)
'MsgBox numStr
numLen = Len(numStr)
'MsgBox numLen
i = 1
Do While i <= numLen
numChar = CInt(Mid(numStr, i, 1))
'MsgBox numChar
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - i + 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
i = i + 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
num = FormatNumber(num, 2)
Dim numList As String
Dim rmbList As String
Dim numLen
Dim numChar
Dim n1, n2 As String
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"
If num > 9999999999999.99 Then
rmb = "超出范围的人民币值"
Exit Function
End If
numStr = CStr(num * 100)
'MsgBox numStr
numLen = Len(numStr)
'MsgBox numLen
i = 1
Do While i <= numLen
numChar = CInt(Mid(numStr, i, 1))
'MsgBox numChar
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - i + 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
i = i + 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
- 人民币大写金额函数
- 人民币大写金额转换
- 人民币金额大写
- 人民币金额大写
- 人民币金额大写
- 人民币金额大写
- 人民币金额大写
- C#人民币金额大写
- 人民币金额大写
- 【叶子函数分享十八】人民币小写金额转大写
- 【叶子函数分享十八】人民币小写金额转大写
- PHP人民币金额数字转中文大写的函数
- PHP人民币金额数字转中文大写的函数
- 人民币小写金额转大写
- 人民币小写金额转大写
- 人民币小写金额转大写
- 人民币中文大写转金额
- 人民币小写金额转大写
- [转]一生成柱状图、横柱图、折线图的类
- Unix下Oracle的启动步骤
- vb中判断SQL中的NULL值
- Asp.net与SQL一起打包部署安装(收集)
- 转载--数据库主键设计之思考
- 人民币大写金额函数
- JBuilder 2005全接触
- JBuilder 2006新功能赏析
- 数据结构(第二版,C语言版)严蔚敏编著 第一章绪论中的错误
- Jbuilder9+Weblogic8.1安装配置
- 文学常识连载一
- 文学常识连载二
- 轻松面试找到理想员工-非官方的面试技术指南 (收集)
- Oct 20th,2005 I need to study hard