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

cyh5460 · 发表于 2007-5-24 23:38

数据为零的写法

oj4bITym.rar (9.4 KB, 下载次数: 48)

yxxxx · 发表于 2007-6-24 10:58

这样就三行了:

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

tlycrystal · 发表于 2007-6-29 10:57

我點看不懂

linmuding · 发表于 2007-7-30 23:43

LDY888版主,你太强了.不过好象还是有点美中不足,比如:12340.56元正确的大写写法是:壹万贰仟叁佰肆拾元零伍角陆分,而用ldy888(M)大写只能转换为:壹万贰仟叁佰肆拾元伍角陆分,伍角前面少个零.

ldy888 · 发表于 2007-7-30 23:57

QUOTE:

以下是引用linmuding在2007-7-30 23:43:02的发言：

LDY888版主,你太强了.不过好象还是有点美中不足,比如:12340.56元正确的大写写法是:壹万贰仟叁佰肆拾元零伍角陆分,而用ldy888(M)大写只能转换为:壹万贰仟叁佰肆拾元伍角陆分,伍角前面少个零.

呵呵，你没错，我也没错

4020YH · 发表于 2007-8-11 09:10

请教高手：

我EXCEL计算的小写金额放在Q17单元里，怎样将小写在D17：H17里转换为大写呀，

[em04]

4020YH · 发表于 2007-8-12 18:22

好是好，就是不知道怎么用啊，比如我想将Q17单元的小写金额转换为大写并显示在F17：J17区域，怎么办呢？谢谢指点！！！！！！

yq7654 · 发表于 2007-8-14 10:30

姚强,四川省商贸学校-计算机二班

[此贴子已经被作者于2007-8-14 19:32:56编辑过]

yyhd · 发表于 2007-8-14 13:07

楼主真人也!

四八三六 · 发表于 2007-8-14 23:30

楼主有心，收藏，学习

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