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

山山好又快 · 发表于 2011-11-15 09:01

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

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

yj0715 · 发表于 2013-6-24 22:10

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

poongsan · 发表于 2013-10-25 23:36

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

walle666 · 发表于 2015-11-6 19:58

学习了，谢谢

weiyingde · 发表于 2019-11-1 11:16

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

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

weiyingde · 发表于 2019-11-1 11:28

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

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

YZC51 · 发表于 2019-12-21 21:50

本帖最后由 YZC51 于 2019-12-21 22:06 编辑

学习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 · 发表于 2020-2-24 16:09

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

ph378 · 发表于 2020-10-7 20:00

收藏了。

天狼骑士2013 · 发表于 2020-10-7 23:19

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

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

		自动登录	找回密码
密码			免费注册

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

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