[原创]最简短的人民币大写自定函数（11行），附由浅到更浅解说

ldy888

楼主的代码输入0.10转换为零元壹角整

这个改起来很容易，行数不变，特意让想学的新手试试地

a = Application.Text(y, "[DBNum2]")
d = "元"
这两行加个 IF 判断就行了，实用方面，这原是打支票用的，

而支票金额小于1元不受理，所以没必要。要改也只能是精益求精了。

建议新手动手试试，这样更易掌握。

ldy888

在论坛找到这个代码，只有10行，精简！虽然不认负数，金额也有限制。但所用语句比我的高明，适用的方向很广。有很多地方不懂。求高手指点，最好能像我那样做 由浅向更浅 的说明。多谢了。

为方便区分学习，把原宏名Ntoc 改为 rmbn

Function rmbn(n) 'n as single
'原创 渴死的鱼 hanlin2020@hotmail.com
'改编 inRm inrm@263.net
Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"
Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"
rmbn = ""
sNum = Trim(Str(Round(n, 2) * 100)) '在这里用Round()四舍五入
For i = 1 To Len(sNum) '逐位转换
rmbn = rmbn + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)
Next
For i = 0 To 11 '去掉多余的零
rmbn = Replace(rmbn, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
Next
End Function

ldy888

以下是引用[I]northwolves[/I]在2006-1-2 14:47:55的发言：[BR]y = Int(Abs(M))
j = int(Abs(M)*10 mod 10)
f = int(Abs(M)*100 mod 10)

照你的改法不行，结果：123.36 壹佰贰拾叁元零陆分 不过谢谢你，让我知道了 MOD 的用法。不用奇怪，我是新手，有很多语句我不懂。

ldy888

看了一天终于看懂了，还可以改成这样，增加了负数识别 以12034.00为例 Function ldy(n) aa = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分" bb = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整" cc = Round(Abs(n), 2) * 100 '在这里用Round()四舍五入 1203400 7位 If n < 0 Then ldy = "负" For i = 1 To Len(cc) '逐位转换 n的位数 7位 ldy = ldy + Mid(aa, (Mid(cc, i, 1)) + 1, 1) + Mid(aa, 26 - Len(cc) + i, 1) ' 1203400的第1 个数 1+1=2 aa的第二个字 壹 'aa的第26-7+1=20个字 万合起来是 壹万 ' 循环7次 壹万贰仟零佰叁拾肆元零角零分 Next For i = 0 To 11 '去掉多余的零 ldy = Replace(ldy, Mid(bb, i * 2 + 1, 2), Mid(bb, i + 26, 1)) '在ldy=壹万贰仟零佰叁拾肆元零角零分 要换掉的字：bb中的 第1组2个字 零仟 ' 要换进去的字：bb中的 第26个字 零 '在此例中第1 次循环 没有 零仟 ldy 还是 壹万贰仟零佰叁拾肆元零角零分 进入下一循环，共12次 '第2 次循环 ： 找 零佰 然后 用 bb 中的 第27（26+1）个字 零 替换 ' ldy = 壹万贰仟零叁拾肆元零角零分 零佰 变成了零 '以些类推：用 零 换 零拾 ，用 零 换 零零 。。。。。。用亿换零亿。。。。最后用 整 换 零整 找不到的就不变 ''最后ldy = 壹万贰仟零叁拾肆元整 'aa bb 中的 “-” 没有实际意义，只是在编程过程中，便于查看，可以删除，但是两个循环中的 26 要改成25 Next End Function

[此贴子已经被作者于2006-1-3 2:00:34编辑过]

sgrshh29

试试这个1000.10,好像有问题.显示为:壹仟元壹角整.好像正确的显示应该:壹仟元零壹角整.

ldy888

这不是问题，我开支票都是这样开的，银行也是这样开的

开成你那样也对，习惯而已，想依你的习惯改也很容易

nzgny

100.50,好像有问题.显示为:壹佰元伍角整.好像正确的显示应该:壹佰元零伍角整.能写成壹佰元零伍角整，这样的吗？

ldy888

壹佰元伍角整 是标准写法

flyingfirst

都市高手啊 学习学习

wts05980098

请教[DBNum2]什么意思