金额大写

最新推荐文章于 2019-06-27 20:06:19 发布

hztgcl1986

最新推荐文章于 2019-06-27 20:06:19 发布

阅读量1.4k

点赞数

分类专栏： ASP 文章标签： n2 function

ASP 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

本文介绍了一个使用VBA编写的函数，该函数能够将数值金额转换为中文大写形式，适用于财务软件中金额显示的需求。通过定义不同的单位和数字对应列表，此函数能够处理从分到亿级别的金额，并确保输出格式符合中国会计制度的要求。

摘要由CSDN通过智能技术生成

Function RMB(money)

money = FormatNumber (money, 2 ) ' 精确到小数点两位(实现角分)

Dim moneyBigList ' 零壹贰叁肆伍陆柒捌玖
Dim unitList    ' 分角元拾佰仟万拾佰仟亿拾佰仟万

Dim moneystr   ' 数字金额字符串(money * 100)
Dim moneyLen   ' 数字金额字符串长度(money * 100)

Dim moneyChar ' 小写金额:单个位数
Dim n1, n2     ' "零壹贰叁肆伍陆柒捌玖":单个字符,"分角元拾佰仟万拾佰仟亿拾佰仟万":单个字符

Dim n          ' 循环变量
Dim moneyBig ' 大写金额

moneyBigList = " 零壹贰叁肆伍陆柒捌玖 "
unitList = " 分角元拾佰仟万拾佰仟亿拾佰仟万 "

If money > 9999999999999.99 Then ' 限制最大值(99999亿9999万9999元9角9分)
    rmb = " 超出范围的人民币值 "
     Exit Function
End If

moneystr = CStr (money * 100 ) ' 转换成分
moneyLen = Len (moneystr)      ' 获得长度

n = 1
Do While n <= moneyLen
    moneyChar = CInt ( Mid (moneystr, n, 1 ))      ' 小写金额:单个位数
    n1 = Mid (moneyBigList, moneyChar + 1 , 1 )   ' 大写金额:单个字符
    n2 = Mid (unitList, moneyLen - n + 1 , 1 )     ' 单位
     If Not n1 = " 零 " Then
        moneyBig = moneyBig + CStr (n1) + CStr (n2)
     Else
         If n2 = " 亿 " Or n2 = " 万 " Or n2 = " 元 " Or n1 = " 零 " Then
             Do While Right (moneyBig, 1 ) = " 零 "
            moneyBig = Left (moneyBig, Len (moneyBig) - 1 )
             Loop
         End If
         If (n2 = " 亿 " Or (n2 = " 万 " And Right (moneyBig, 1 ) <> " 亿 " ) Or n2 = " 元 " ) Then
            moneyBig = moneyBig + CStr (n2)
         Else
             If Left ( Right (moneyBig, 2 ), 1 ) = " 零 " Or Right (moneyBig, 1 ) <> " 亿 " Then
                moneyBig = moneyBig + n1
             End If
         End If
     End If

    n = n + 1
Loop

Do While Right (moneyBig, 1 ) = " 零 " ' 去掉最右边的"零"
    moneyBig = Left (moneyBig, Len (moneyBig) - 1 )
Loop

If Right (moneyBig, 1 ) = " 元 " Then ' 加上"整"
    moneyBig = moneyBig + " 整 "
End If

RMB = moneyBig ' 返回大写金额
End Function

'调用方法
Response.Write(RMB(1986))