沙特里亚尔数字金额转大写

Orinlee

小弟在沙特工作，当地的货币为沙特里亚尔，每1里亚尔=100哈拉拉，没有角和分，于是国内的将人民币数字转大写的方法就不适用了，例如：10.01里亚尔转成大写应为拾里亚尔零壹哈哈，如果按国内的算法则成了拾元零壹分，显然是不行。
我参考了网上的一些优秀算法，用了TEXT（）函数，实现了里亚尔小写转大写的算法，如下：

=IF((A11-INT(A11))>0,TEXT(INT(ROUND(A11,2)),"[dbnum2]")&"里亚尔"&TEXT(RIGHT(RMB(A11,2),2)*1,"[dbnum2]")&"哈拉拉",TEXT(A11,"[dbnum2]")&"里亚尔整")

例子：

12.22

壹拾贰里亚尔贰拾贰哈拉拉

这里A11单元格是小写数字所在的单元格。
基本原理是：
首先用差额法判断原数字是否带有小数部分，(A11-INT(A11))>0，如果此式成立则说明A11原值比取整后的值INT（A11）要大，大出来的总额就是小数部分的数值；
如果有小数，则将整数部分取出来，用TEXT（）函数将数字转成中文大写数字，关键参数是"[dbnum2]"，然后再将小数部分用相同的方法转成大写数字；
如果没有小数，则直接将原值用TEXT()转成大写数字。

当然这里的算法还很粗糙，需要深化下，例如负数的情况没有处理，0到1之间的纯小数没有处理，”零“字符没有出现，请各坛友给出点子解决这些问题。

jsxjd

分三段写：整数、十分位、百分位

上级要我跟你混

不晓得是不是这样的效果，A1输入金额。

1. =IF(VALUE(A1)=0,"",IF(INT(A1)=0,"",TEXT(INT(A1),"[dbnum2]")&"里亚尔")&IF(VALUE(RIGHT(A1*100,2))=0,"整",IF(OR(RIGHT(A1*100,2)-9>0,A1-1<0),TEXT(RIGHT(A1*100,2),"[dbnum2]"),"零"&TEXT(RIGHT(A1*100,2),"[dbnum2]"))&"哈拉拉"))

复制代码

话说，货币还用考虑负数情况吗？