[挑战]功能最全、最短（7行）的人民币大写函数

xuzong · 发表于 2006-3-28 13:13

真他妈的强！见到过所有程序中，最短最完备的程序！

xuzong · 发表于 2006-3-28 13:28

请楼主关照一下：

如果在VB中，怎样使用？

蓝梦 · 发表于 2006-3-29 01:02

是有错误

ldy888 · 发表于 2006-5-10 01:47

以下是引用[I]mayfor[/I]在2006-3-28 12:16:01的发言：
有点小错误，试试1.51及其他。

不仅是1.51 但凡尾数是.41,.51.61,.71,.81,91 的都有这个情况．这是个EXCEL的BUG,中断程序检查,发现51/10 居然= 5.999999999999999999 只好把分位ROUND一下了,这样就解决了．对１９楼的朋友表示感谢．以下是改过的，这样更完善了．如再发现错误，请跟帖，万二分感谢．程序在下一帖．编辑了10次，总是少一行，不和它较劲了，直接发个文件上来得了

mNsEvZQN.rar (6.8 KB, 下载次数: 563)

[此贴子已经被作者于2006-5-10 2:05:28编辑过]

ldy888 · 发表于 2006-5-10 02:02

发在这里就行，奇怪！．

Function ldy888(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = Round((j / 10 - Int(j / 10)) * 10)
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.4, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 0.4, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function

[此贴子已经被作者于2006-5-10 2:03:23编辑过]

kailee · 发表于 2006-5-10 22:41

很经典！里程碑式的成就了！祝贺楼主！！

today2005 · 发表于 2006-5-11 01:34

好好用的代码，但是自定义函数如何调用，我不会啊，让大家见笑了，谁能告诉我怎样用呢？

ldy888 · 发表于 2006-5-11 03:38

使用方法：把这串代码复制到模块中就行了。例：A1格中有数字12.34，在B1格中输入"=ldy888(a1)"

或:在B1格中输入"=ldy888(12.34)",显示"壹拾贰元叁角肆分"

rg555555 · 发表于 2006-5-11 07:43

认真学习。

青山依旧 · 发表于 2006-5-11 09:31

牛!!!!!![em17]

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

[挑战]功能最全、最短（7行）的人民币大写函数

最新热点 /1