[分享]人民币大写函数TEXT终极版 1行(136字符)

薄才多学

136子符的在几楼啊？

hhb6085

期待136字符的.

[此贴子已经被作者于2008-8-9 12:21:12编辑过]

shewoyu

ding,,留个印！！强！！

ldy

从wshcw那里淘来不少好东西

170 字符 比181字符的 大大提高了。

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),IF(A2<0,"负",)&TEXT(INT(ABS(RMB(A2))),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整"),),"零角",IF(ABS(A2)<1,,"零")),"零分","整")

-------------------------------------------------------------------------------------------------------------------

164 字符 这是我参考后改的。  小于 0 的显示 “-”  而不是 “负”

=TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"))

想不到函数还有这么大的挖掘空间

ppp123

 支持一下，越短越快吗？如果是就有必要去讨论，否则纯属娱乐呀

wangtx218

一般情况下,短比长好!

shizx98

版主的精华帖高！学习了。谢谢！

68楼的两个公式都有问题，在角分上不对。请测试一下。（更正：是我在测试的时候搞错了，68楼的公式是正确的。抱歉！）

[此贴子已经被作者于2008-8-11 12:38:26编辑过]

ldy

QUOTE:

以下是引用shizx98在2008-8-10 15:55:08的发言：

版主的精华帖高！学习了。谢谢！

68楼的两个公式都有问题，在角分上不对。请测试一下。

???? 测试了好几个数 没有发现问题。

你所说的“在角分上不对” 是全部都不对？还是某个数字？还是你说错了楼层?

[此贴子已经被作者于2008-8-10 19:14:47编辑过]

shun2233

172个字符
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A3<0,"负",)&TEXT(INT(ABS(A3)),"[dbnum2];; ")&TEXT(MOD(ABS(A3)*100,100),"[>9][dbnum2]元0角0分;[=0]元整;[dbnum2]元零0分"),"零分","整")," 元零",)," 元",)

如果是正数，148字符：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A3),"[dbnum2];; ")&TEXT(MOD(A3*100,100),"[>9][dbnum2]元0角0分;[=0]元整;[dbnum2]元零0分"),"零分","整")," 元零",)," 元",)

[此贴子已经被作者于2008-8-10 17:37:09编辑过]

shun2233

179个字符

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A3<0,"负",)&TEXT(INT(ABS(A3)),"[dbnum2]G/通用格式元;;")&IF(INT(A3)=A3,"整",TEXT(RIGHT(TEXT(A3,".00"),2),"[dbnum2]0角0分")),"元零角","元零"),"零分","整"),"零角",)