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

yaoyzh

利害

wanter1980

    楼主：

    我用的是EXCEL2003，不管我是用你的这个函数，还是自己测试，在VBA里，一过了200万，小数点就不对了，但如是在EXCEL表里用函数来计算则没有问题，请查看一下附件，谢谢啦！

tS0yvgjU.rar (14.81 KB, 下载次数: 22)

2008-3-14 23:38 上传

点击文件名下载附件
[挑战]功能最全、最短（7行）的人民币大写函数

[em06]

zldccmx

QUOTE:

QUOTE:

Public Function daxie(M As Double) '这样定义数字为双精度之后，返回的结果就不会出错了！相应地，在调用此自定义函数之前，也应该对变量定义为双精度的。
Dim Y, j, f, a, b, c As Variant
    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]") & "分")
    daxie = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & a & b & c, a & b & c))
End Function

QUOTE:

QUOTE:

Sub ss()
Dim vv As Double
vv = 2000000000001.18
Debug.Print daxie(vv)
End Sub

'显示结果：贰兆零壹元壹角捌分

[此贴子已经被作者于2008-3-15 0:30:45编辑过]

meteorsky

厉害

学习了。

starking66

很有用的样子哦!感谢了哦!

ylx_excel

学习学习

gxdy

不错，想法太巧妙了

jylxq

很好，就是不能用。

wawbt

没得治,精简到不能再精简了,水平到了如普通人练到乾坤大挪移到第七层境界.

zhtz626

不错啦,谢谢啦

[em23]