[原创]人民币大写数字相互转换

山菊花

首先感谢楼的的分享。

测试过程中发现，公式中的RMB()函数，在省略第2个参数时，受Windows设置有关：

RMB()函数的使用与Windows设置有关

建议：不要省略参数2，以防止得到不正确的结果：

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

[此贴子已经被作者于2008-8-21 11:43:28编辑过]

wddn

版主的提醒和建议值得重视。

实际上电脑使用和操作员，这些设置一般是想也没有想到过。

猜想：FIXED函数亦然。

wshcw

QUOTE:

以下是引用山菊花在2008-8-21 11:39:08的发言：

首先感谢楼的的分享。

测试过程中发现，公式中的RMB()函数，在省略第2个参数时，受Windows设置有关：

RMB()函数的使用与Windows设置有关

建议：不要省略参数2，以防止得到不正确的结果：

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

经测试:

RMB()函数的使用确实是与Windows设置有关.

但FIXED()函数的使用又与Windows设置无关,缺省时仍然是默认2位小数.

数值 公式 公式表达式
1200.092666 1,200.09 =FIXED(A2)
1249.900984 1,249.90 =FIXED(A3)

[此贴子已经被作者于2008-8-21 23:09:41编辑过]

shaowu459

一直用英文系统，一直搞不懂rmb这是个什么函数，

现在用汉语系统才知道了。收藏学习，谢谢楼主这么用心的总结。

ponyonline

不是有个ESF_mnyToCap(B1)吗?为什么还要去写这么多?

这个ESF_mnyToCap(B1)不管是负值还是正值,正负0.01还是10000001.01怎么样的数值都正确转换了啊

山菊花

不是有人跑完过马拉松吗？为什么还要跑？

为了“更快、更高、更强”，我们的奥林匹克永无止境。

函数也一样。

wshcw

QUOTE:

以下是引用山菊花在2008-8-21 11:39:08的发言：

首先感谢楼的的分享。

测试过程中发现，公式中的RMB()函数，在省略第2个参数时，受Windows设置有关：

RMB()函数的使用与Windows设置有关

建议：不要省略参数2，以防止得到不正确的结果：

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

谢谢山版测试提醒,为了遵循函数使用的严谨性,公式两处都得改(凡使用RMB函数之处都得更正).

目前最完整也最简短(并且用TEXT(A1,";负")还能处理文本型数字)的人民币金额大写 (因RMB(A1)的省略写法还是有缺陷)有如下两个公式:
172个字符  
=SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[>9][dbnum2]0角0分;"&IF(A1^2<1,,0)&"[>][dbnum2]0分;整"),),"零分","整")
171个字符  
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

[此贴子已经被作者于2008-9-1 23:37:15编辑过]

ponyonline

QUOTE:

以下是引用山菊花在2008-8-21 23:05:52的发言：

不是有人跑完过马拉松吗？为什么还要跑？

为了“更快、更高、更强”，我们的奥林匹克永无止境。

函数也一样。

SORRY  刚才研究了下这些公式,才发现ESF_mnyToCap()是EXCEL服务器里的一个宏加载文件里的一个函数

在没安装EXCEL服务器的机子用不了这个函数

liurulin

精彩，高手多呀，佩服

little-key

我还是比较热衷于自定义函数。