[原创]数字转换中文大写金额

最新推荐文章于 2022-02-25 19:38:17 发布

置顶 cike_1111

最新推荐文章于 2022-02-25 19:38:17 发布

阅读量1.8k

点赞数

文章标签： command c

本文链接：https://blog.csdn.net/cike_1111/article/details/2029145

版权

[原创]数字转换中文大写金额

程序需要：2控件：

text1

command1

command1下代码：

On Error Resume Next

If InStr(Text1, ".") > 1 Then Exit Sub
If Right(Text1, 1) = "." Then Text1.Text = Left(Text1, Len(Text1) - 1

b = "亿万仟佰拾兆万仟佰拾亿仟佰拾万仟佰拾元"

If InStr(Text1, ".") = 0 Then '如果没有小数点的时候的处理办法

For i = 0 To Len(Text1) '先把数字全部转换成中文大写字符

    Text1.Text = Replace(Text1.Text, "0", "零")
    Text1.Text = Replace(Text1.Text, "1", "壹")
    Text1.Text = Replace(Text1.Text, "2", "贰")
    Text1.Text = Replace(Text1.Text, "3", "叁")
    Text1.Text = Replace(Text1.Text, "4", "肆")
    Text1.Text = Replace(Text1.Text, "5", "伍")
    Text1.Text = Replace(Text1.Text, "6", "陆")
    Text1.Text = Replace(Text1.Text, "7", "柒")
    Text1.Text = Replace(Text1.Text, "8", "捌")
    Text1.Text = Replace(Text1.Text, "9", "玖")


Next i

a = Len(Text1) '整数长度

c = Right(b, a)                '提取单位长度

For i = 1 To Len(Text1)        '循环结合起来

    d = d & Mid(Text1, i, 1) & Mid(c, i, 1)

    Next i

Text1.Text = d

For i = 0 To Len(Text1) '该循环去除“零拾零佰”等不符合中文读法的字符

Text1.Text = Replace(Text1.Text, "零拾", "零")
Text1.Text = Replace(Text1.Text, "零佰", "零")
Text1.Text = Replace(Text1.Text, "零仟", "零")
Text1.Text = Replace(Text1.Text, "零万", "万")
Text1.Text = Replace(Text1.Text, "零亿", "亿")
Text1.Text = Replace(Text1.Text, "零兆", "兆")
Text1.Text = Replace(Text1.Text, "零元", "元")
Text1.Text = Replace(Text1.Text, "兆万", "兆")
Text1.Text = Replace(Text1.Text, "兆亿", "兆")
Text1.Text = Replace(Text1.Text, "亿万", "亿")
Text1.Text = Replace(Text1.Text, "零零", "零")