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

xq1234 · 发表于 2006-5-19 21:14

我都不知道到底是谁的好了。

不过我都向这些无私奉献的人们表示感谢！！！

redlotus · 发表于 2006-5-20 21:07

以下是引用[I]ldy888[/I]在2006-1-9 1:18:39的发言：[BR]
这有使用说明
附：11行的帖子
http://club.excelhome.net/viewthread.php?tid=143657&replyID=&skin=0

做的非常好，就一个小小的问题是，大写金额分后面不能有“整”字

ldy888 · 发表于 2006-5-20 21:36

从没见过分后有整的写法.

青山依旧 · 发表于 2006-5-20 21:46

以下是引用[I]gly1126[/I]在2006-5-14 21:34:56的发言：[BR]
受启发写了一个,欢迎指正!
Public Function dx(n)
dx = Replace(Application.Text(Round(n+0.00000001, 2), "[DBnum2]"), ".", "元")
dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function

不错,收下,谢谢!!!!

wts05980098 · 发表于 2006-5-22 17:48

真的是最短的

wts05980098 · 发表于 2006-5-22 18:09

有一问题请教零怎么没有？？

jzIGRgHh.rar (10.78 KB, 下载次数: 77)

[此贴子已经被作者于2006-5-22 18:39:56编辑过]

doyyi · 发表于 2006-5-22 20:57

不要太高兴，你只不过是使用了IFF函数来表达多个条件而已，其实和其它人的差不多的

ldy888 · 发表于 2006-5-22 21:35

以下是引用[I]doyyi[/I]在2006-5-22 20:57:28的发言：[BR]
不要太高兴，你只不过是使用了IFF函数来表达多个条件而已，其实和其它人的差不多的

就是!WINdows也不就是0和1组成的而已.

doyyi · 发表于 2006-5-22 23:15

呵呵，那你的水平不错的，世界最短最全的大写函数，拿了世界第一啦，哈哈

ldy888 · 发表于 2006-5-22 23:35

已经不是我了,gly1126做的更好,更快.

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