设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

符合财务要求的人民币大写函数

2008-6-12 00:54| 发布者: pureshadow| 查看: 973| 评论: 9

这几乎是个老掉牙的题了,但最近还是发现里面有好玩的地方. 要求:不要用自定义函数,而是用技巧加函数,目前我做到的是函数加在一起20个字符(不包括=),看谁能写到更短.输入的数据可能是123.456,或者0.009这样的. 总结一下: 一个取巧的做法,偶尔会出怪的: A1*100再设置一下格式 完全用函数就是 =TEXT(ROUND(A1*100,0),"[DBNum2]0元0角0分") 分两个单元格写 第一个:=text(int(a1),"[DBNum2]0元") 第二个:=text(mod(a1,1)*100,"[DBNum2]0角0分") 纯函数也没什么难的,168字全通用 [table=98%] [tr][td]SUBSTITUTE(SUBSTITUTE(IF(-RMB(B1),IF(B1>0,,"负")&TEXT(INT(ABS(B1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(B1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(B1^2<1,,"零")),"零分","整") [/td][/tr] [/table] 本期的妖题正好是这题,就不专门开新贴了,把N久以前的一个贴子移过来吧。 更多妖题:[url]http://pure-shadow.blog.sohu.com/162091784.html[/url]详细内容:http://www.office-cn.net/forum.php?mod=viewthread&tid=61281
发表评论

最新评论

查看全部评论(9)

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-2 23:15 , Processed in 0.074770 second(s), 16 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部