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

飞云楼主

学习。收下

ogame

方法简单实用，谢谢。

夜之愿

ldy 帮忙看下，我写的程序，就是没反应 代码如下

Function rmbc(M)

Dim y, j, f, a, b, c, d, e, g


If M <= 0 Then
    MsgBox "金额错误，请重新输入!"
End If

y = Int(M)
j = Round(M - y, 2)
f = (j * 10 - Int(j * 10)) / 10

a = Application.Text(y, "[DBNum2]")
b = Application.Text(Int(j * 10), "[DBNum2]")
c = Application.Text(Round(f * 100, 0), "[DBNum2]")

d = " 元 "
e = " 角 "
g = " 分 "

rmbc = a & d & b & e & c & g

End Function