[分享]强力 人民币中文大写转数字 函数

山山好又快

wshcw 发表于 2008-8-8 12:17
是啊,这样就更简短了:Function DxToN(ss)    For i% = 1 To 9    &nbs ...

有个问题：填写整数有误。

yj0715

这个帖子不顶不行，赶紧收藏。

poongsan

留个记号！！！留个记号！！！

walle666

学习了，谢谢

weiyingde

wshcw 发表于 2010-12-30 11:33
贴子删除了不少啊！，再改改，代码如下：
Function DxToN(ss)
    For i% = 1 To 9

真简洁，要好好揣摩研究才能吸收，谢谢了，拿走了在我的帖子里收藏了！
http://club.excelhome.net/thread-1397953-5-1.html

weiyingde

wshcw 发表于 2010-12-30 11:33
贴子删除了不少啊！，再改改，代码如下：
Function DxToN(ss)
    For i% = 1 To 9

干货硬货，筋肉坨子，超级精炼，不愧大咖！！
学习，致敬！！

YZC51

学习LDY 和 大理 两位版主的代码。谢谢老师们！
Function DxToN(ss)
    For i% = 1 To 9
        ss = Replace(ss, Mid("壹贰叁肆伍陆柒捌玖", i, 1), i)
        ss = Replace(ss, Mid("一二三四五六七八九", i, 1), i)
    Next
    For i% = Len(ss) To 1 Step -1
        s$ = Mid$(ss, i, 1)
        X% = InStr("分角圆拾佰仟万000亿000兆", s)
        If X = 0 Then X% = InStr("0毛元十百千萬000億", s)
        If X = 0 Then X% = InStr("00块", s)
        If X Then j% = IIf(j% < X, X, ((j - 3) \ 4) * 4 + X)
        If Val(s) Then m# = m# + (s & String(j - 1, "0")) / 100
    Next
    DxToN = Round(m, 2)
    If InStr(ss, "-") Or InStr(ss, "负") Then DxToN = -DxToN
End Function

素心1218

哈哈，杠精，除了国家统计局，全国GDP也不过是万亿单位的，那个报表还能超过全国GDP啊？

ph378

收藏了。

天狼骑士2013

YZC51 发表于 2019-12-21 21:50
学习LDY 和 大理 两位版主的代码。谢谢老师们！
Function DxToN(ss)
    For i% = 1 To 9

八万零柒十三
八万零七十三不能转换，为什么？