转换大写人民币公式新解

chrisfang · 发表于 2008-6-20 14:03

把数字转换为中文大写人民币的格式一直是一个经常在论坛被问到的问题，现有的做法一般有函数公式或VBA自定义函数。

函数的做法现有的看来都有些复杂，毕竟人民币转换当中的问题比较多，例如分位为零或角位分位都为零的时候显示“整”，“角”为0且整数部分不为0的时候要显示“几元零几分”，而整数部分和“角”都为0的时候则不要显示“零”而是直接显示“多少分”，等等许多条件。

想尝试简化这样的公式，但做下来感觉并不是十分理想，没能简化太多内容。不过做的结果还是想和大家分享一下，或许还有好的方法。

6uhSu1kJ.rar (25.74 KB, 下载次数: 244)

[此贴子已经被作者于2008-6-26 20:29:37编辑过]

LangQueS · 发表于 2008-6-20 14:09

谢谢chrisfang版！

ldy · 发表于 2008-7-28 23:17

进位没有考虑小数变整数的问题。尾数为0.995-0.999 出错。

我记得方版前几天做的 183字符好像没问题。

text函数的转换一般不用考虑整数部分

0.999， 0.56 ，0.001 ，0 一般用这4个边界值正负一试就能找出bug

我见过wshcw写的 181个字符的公式，是目前能够全部正确处理的公式中最短的。

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

函数水平有限，我无法再减了，期待方版更好的方案。

wshcw · 发表于 2008-7-29 00:02

QUOTE:

以下是引用chrisfang在2008-6-20 14:03:19的发言：

把数字转换为中文大写人民币的格式一直是一个经常在论坛被问到的问题，现有的做法一般有函数公式或VBA自定义函数。

函数的做法现有的看来都有些复杂，毕竟人民币转换当中的问题比较多，例如分位为零或角位分位都为零的时候显示“整”，“角”为0且整数部分不为0的时候要显示“几元零几分”，而整数部分和“角”都为0的时候则不要显示“零”而是直接显示“多少分”，等等许多条件。

想尝试简化这样的公式，但做下来感觉并不是十分理想，没能简化太多内容。不过做的结果还是想和大家分享一下，或许还有好的方法。

验证一下这几个数字试试,是否可行?

0.2269
0.0049
0.0015
-0.0049
999.999

大写公式181个字符好象不能再减了吧,参考:

[分享]九种人民币大写数字相互转换及新增人民币写法三种

[此贴子已经被作者于2008-7-29 0:03:58编辑过]

chrisfang · 发表于 2008-7-29 11:03

不会吧，人民币还要适应两位以上小数的情况？

[此贴子已经被作者于2008-7-29 11:04:13编辑过]

chrisfang · 发表于 2008-7-29 11:22

如果要适应这样的要求，容我再看一下。

chrisfang · 发表于 2008-7-29 22:20

QUOTE:

以下是引用wshcw在2008-7-29 0:02:11的发言：

验证一下这几个数字试试,是否可行?

0.2269
0.0049
0.0015
-0.0049
999.999

大写公式181个字符好象不能再减了吧,参考:

[分享]九种人民币大写数字相互转换及新增人民币写法三种

今天白天实在没时间，晚上抽时间先看了一下，要适应多位小数以及零的情况，根据wshcw朋友已有的公式，我先给个176字符的简化公式吧，请验证：

=SUBSTITUTE(SUBSTITUTE(IF(B8>-0.5%,,"负")&TEXT(TEXT(B8,"#;#"),"[dbnum2]G/通用格式圆")&TEXT(RIGHT(FIXED(B8),2),"[dbnum2]0角0分;;"&IF(ABS(B8)>1%,"整",)),"零角",IF(ABS(B8)<1,,"零")),"零分","整")

另外还有两个思路，暂时没时间去验证，明天白天再尝试一下。

wshcw · 发表于 2008-7-29 22:40

经验证,如1000.5909这样的数字结果会无故的多了1元.

1,000.59 壹仟零壹元伍角玖分

chrisfang · 发表于 2008-7-30 13:36

7楼公式确实不对，另外也尝试了几个思路，好像确实找不到比181字符更少的解决方案。

wshcw · 发表于 2008-8-7 20:00

FIXED改成RMB,再破181个字符记录(179个字符):
=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")

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