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

冲天妖狐 · 发表于 2008-8-3 23:23

佩服……好用……

lizhigang160 · 发表于 2008-8-4 11:59

厉害，学习了！！！！

wh_wxh · 发表于 2008-8-6 00:36

太利害了!!!!你们太有才了!!!!

wshcw · 发表于 2008-8-6 02:02

负数转换后应该有"负"字才对,所以还是205个字符公式适用.带病的公式或代码即使再简短也没有意义.

ldy · 发表于 2008-8-6 12:37

QUOTE:

以下是引用wshcw在2008-8-6 2:02:24的发言：
负数转换后应该有"负"字才对,所以还是205个字符公式适用.带病的公式或代码即使再简短也没有意义.

哈哈哈，谁规定的？

谁要不想有病，大可加一个replace(.........,"-","负")嵌套，加完了也才204字符

代码并没有病，病在心里。

金不换 · 发表于 2008-8-6 12:57

真是能人啊,看得我都合不拢嘴了,看来要好好学习了,

ldy · 发表于 2008-8-6 16:33

170 字符。

有兴趣的看 1 楼。有分送

[此贴子已经被作者于2008-8-6 17:53:59编辑过]

hhb6085 · 发表于 2008-8-7 01:37

不避浅陋,也做了一个公式:

=NUMBERSTRING(A1,2)&"元"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(NUMBERSTRING(RIGHT(ROUND(A1,2)*100,2),2)&"分","零分","整"),"拾","角"),"角分","角整")

131字符!

请行家批评!

0.56	壹元伍角陆分
1.03	壹元叁分
0.50	壹元伍角整
0.23	零元贰角叁分

这样的结果，错太远了----ldy

[em03] 9TdxDsVq.rar (1.91 KB, 下载次数: 39)

[此贴子已经被ldy于2008-8-7 10:24:49编辑过]

ldy · 发表于 2008-8-7 14:48

震惊！！居然可以达到 136 字符

所以大家这个分还是有机会拿的。

hhb6085 · 发表于 2008-8-7 21:09

声明,本人在61数的公式是错的.这里特地改正过来.

不过正确是正确了,可是字符数达234.见笑,只为改错而来.

=IF(A1<0,"-","")&SUBSTITUTE(NUMBERSTRING(INT(ABS(A1)),2)&"圆"&SUBSTITUTE(SUBSTITUTE(IF(LEFT(RIGHT(ROUND(ABS(A1),2),2))="0","零","")&SUBSTITUTE(NUMBERSTRING(RIGHT(ROUND(ABS(A1),2)*100,2),2),"拾","角")&"分","零零分","整"),"角分","角整"),"零圆","")

我将继续努力,争取更短!

最后谢谢ldy的指正和鼓励.

[此贴子已经被作者于2008-8-7 21:54:31编辑过]

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