[原创]大写金额转换之最简单方案

yangcongwen · 发表于 2008-7-14 08:43

大写金额转换之最简单方案，直接用函数实现，小数位超过2位的先用round函数变成2位，否则可能在尾数上有区别。

=IF((J25-INT(J25))=0,TEXT(J25,"[DBNUM2]")&"元整",IF(INT(J25*10)-J25*10=0,TEXT(INT(J25),"[DBNUM2]")&"元"&TEXT((INT(J25*10)-INT(J25)*10),"[DBNUM2]")&"角整",TEXT(INT(J25),"[DBNUM2]")&"元"&IF(INT(J25*10)-INT(J25)*10=0,"零",TEXT(INT(J25*10)-INT(J25)*10,"[DBNUM2]")&"角"&TEXT(RIGHT(J25,1),"[DBNUM2]")&"分")))

当然，用的时候将其中的“J25”换成你真正要转换的单元格。

zl8630435 · 发表于 2008-7-14 15:03

谢谢，收下了

pxj008 · 发表于 2008-7-14 15:27

不错呀,谢谢了.

mhao321 · 发表于 2008-7-15 22:51

好呀，比以前的好用多了，谢谢啰

Vuur · 发表于 2008-7-16 10:17

这个不错，挺实有的。

sunxh · 发表于 2008-7-17 13:31

大写金额转换之最简单方案,谢谢!

cat2100 · 发表于 2008-7-18 17:30

仍有缺陷，“零X分”不正常。

如 1234.05 元，结果是：“

壹仟贰佰叁拾肆元零”

再修改一下就完美了！

qmya00 · 发表于 2008-7-20 17:00

=IF(F13="","",IF(INT(F13)=0,"",TEXT(INT(F13),"[dbnum2]g/通用格式")&"元")&IF((INT(F13*10)-INT(F13)*10)=0,"",TEXT(INT(F13*10)-INT(F13)*10,"[dbnum2]g/通用格式")&"角")&IF((INT(F13*100)-INT(F13*10)*10)=0,"整",IF(INT(F13*10)=0,"",IF((INT(F13*10)-INT(F13)*10)=0,"零","")))&IF((INT(F13*100)-INT(F13*10)*10)=0,"",TEXT(INT(F13*100)-INT(F13*10)*10,"[dbnum2]g/通用格式")&"分"))

joywin · 发表于 2008-7-25 15:59

ESF_mnyToCap() 函数是这个代码吗？

黄其宾 · 发表于 2008-7-27 15:23

有错!!如1500.0995

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

[原创]大写金额转换之最简单方案

回复：大写转换最简单方案