[原创]与[推荐]数字金额转换中文大写与英文字母

清风_ll

这样就比较好了,做得不错.

[em17]

topcar

呵呵，我自己写了一个，不过粗点，没有把零去掉，格式统一

topcar

怎么放文件阿？

legend78we

学习，分享。支持。

legend78we

有了，

lyht427

学习！

FangJian

这个代码非常精彩将字符串的函数运用得淋漓尽致这个程序是运用字符串函数的极好教材。

程序中有一小错， If Num < 0 Then FuHao = "（负）"应提前两行即：

If Num < 0 Then FuHao = "（负）"

Num = Format(Abs(Num), "###0.00") * 100

If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function If Num = 0 Then: DaXie = "零元零分": Exit Function

webxunet

这个好象不用VBA也能实现吧： D:\Documents and Settings\user\桌面\00.bmp

gplcai

十分好用.多谢了.

Samsea

以下是引用FangJian在2005-1-20 21:20:00的发言：

这个代码非常精彩将字符串的函数运用得淋漓尽致这个程序是运用字符串函数的极好教材。

程序中有一小错， If Num < 0 Then FuHao = "（负）"应提前两行即：

If Num < 0 Then FuHao = "（负）"

Num = Format(Abs(Num), "###0.00") * 100

If Num > 999999999999999# Then: DaXie = "数字超出转换范围!!": Exit Function If Num = 0 Then: DaXie = "零元零分": Exit Function

谢谢指正。已重新上传。