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

JSJ0811

真牛呀!

冲天妖狐

太好了……

123456789l

A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
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))

这几行可以合并为一行，

但看起来比较累，不合乎程序编写原则

guanmy

收藏

zba37

汗。。。。。

excel里面自带的就有人民币大写函数：ESF_MnyToCap（），不必用几行来完成呵。

[此贴子已经被作者于2007-11-17 16:01:07编辑过]

ldy888

QUOTE:

以下是引用zba37在2007-11-17 16:00:11的发言：

汗。。。。。

excel里面自带的就有人民币大写函数：ESF_MnyToCap（），不必用几行来完成呵。

你用的是 Excel服务器吧

Excel服务器2005中增加了一个小写金额转换为大写金额的函数ESF_MnyToCap

看来你对EXCEL太不了解了

ccwan

楼上的是什么版本的excel呢？我的2003和2007都没有哎。

zba37

呵呵，还真是的，我以前没太注意，最近装了服务器没事研究研究，看到里面有这个公式，还以为是excel自带的

[em04][em04]

[此贴子已经被作者于2007-11-19 22:33:48编辑过]

jpjqgh

本人也修改了一下，个人认为应该是多少元才算是整数，公司也是这样要求，所以修改了一下，请大家多接指教！

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

[此贴子已经被作者于2007-11-22 10:30:41编辑过]

wanter1980

我不知是不是版本的差异，楼主的公式上了一百万就有六分钱的差异呵!