好用的公式--人民币大写的函数公式.doc

下载文档

72
0
约2.8千字
约 2页
2017-05-16 发布于重庆
举报
版权申诉
保障服务

好用的公式--人民币大写的函数公式.doc

1、本文档共2页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

好用的公式--人民币大写的函数公式

好用的公式--人民币大写的函数公式.txt看一个人的的心术，要看他的眼神；看一个人的身价，要看他的对手；看一个人的底牌，要看他的朋友。明天是世上增值最快的一块土地，因它充满了希望。好用的公式--人民币大写的函数公式人民币大写的函数公式，可正负無條件捨去： =CONCATENATE(IF(A10,負,),TEXT(IF(TRUNC(A1)=0,零,TRUNC(ABS(A1))),[DBNum2])元,IF(OR(AND(ABS(A1)0.1,TRUNC(A1)=A1),RIGHT(INT(ABS(A1)*100),2)=00),,TEXT(RIGHT(TRUNC(A1*10),1),[DBNum2])),IF(RIGHT(TRUNC(A1*10),1)=0,,角),IF(OR(TRUNC(A1*10)-(A1*10)=0,RIGHT(TRUNC(A1*100),1)=0),整,TEXT(RIGHT(TRUNC(A1*100),1),[DBNum2])分)) 小數點後兩位四捨五入: =CONCATENATE(IF(A10,負,),TEXT(IF(TRUNC(ROUND(A1,2))=0,零,TRUNC(ABS(ROUND(A1,2)))),[DBNum2])元,IF(TRUNC(ROUND(A1,2))=ROUND(A1,2),,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),1),[DBNum2])),IF(RIGHT(TRUNC(ROUND(A1,2)*10),1)=0,,角),IF(OR(TRUNC(ROUND(A1,2)*10)-(ROUND(A1,2)*10)=0,RIGHT(ROUND(A1,2),1)=0,TRUNC(ROUND(A1,2))=ROUND(A1,2)),整,TEXT(RIGHT(ROUND(A1,2),1),[DBNum2])分)) 我再次修订：无条件舍去： =IF(A10,负,)SUBSTITUTE(TEXT(TRUNC(A1),[DBNum2])元IF(ISNUMBER(FIND(.,TRUNC(A1,2))),TEXT(RIGHT(TRUNC(A1*10)),[DBNum2])IF(ISNUMBER(FIND(.0,A1)),,角),)IF(LEFT(RIGHT(TRUNC(A1,2),3),1)=.,TEXT(RIGHT(TRUNC(A1,2)),[DBNum2])分,整),-,) 小数点后两位四舍五入: =IF(A10,负,)SUBSTITUTE(TEXT(TRUNC(ROUND(A1,2)),[DBNum2])元IF(ISNUMBER(FIND(.,ROUND(A1,2))),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),[DBNum2])IF(ISNUMBER(FIND(.0,ROUND(A1,2))),,角),)IF(LEFT(RIGHT(TRUNC(ROUND(A1,2),2),3),1)=.,TEXT(RIGHT(ROUND(A1,2)),[DBNum2])分,整),-,) 再簡化如後：无条件舍去： =IF(A10,負,)TEXT(TRUNC(ABS(A1)),[DBNum2])元IF(ISERR(FIND(.,TRUNC(A1,2))),,TEXT(RIGHT(TRUNC(A1*10)),[DBNum2]))IF(RIGHT(TRUNC(A1*10))=0,,角)IF(LEFT(RIGHT(TRUNC(A1,2),3))=.,TEXT(RIGHT(TRUNC(A1,2)),[DBNum2])分,整) 小数点后两位四舍五入: =IF(A10,負,)TEXT(TRUNC(ABS(ROUND(A1,2))),[DBNum2])元IF(ISERR(FIND(.,ROUND(A1,2))),,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),[DBNum2]))IF(ISERR(FIND(.0,TEXT(A1,0.00))),角,)IF(LEFT(RIGHT(ROUND(A1,2),3))=.,TEXT(RIGHT(ROUND(A1,2)),[DBNum2])分,整) Function ldy888(M) y = Int(Round(100 * Abs(M)) / 100) j = Round(100 * Abs(M) + 0.00001) - y * 100 f = Round((j / 10 - Int(j / 10)) * 10) A = IIf(y 1, , Application.Text(y, [DBNum2]) 元) b = IIf(j 9.4, Application.Text(Int(j / 10