请各位老师班我改一下转换大写金额问题

xyh2732 · 发表于 2011-9-2 13:43:09

请各位老师帮我修改一下大写金额的代码，当我在金额输入有角没分时大写金额错误显示为"零分"，比如我在金额输入1.4，大写金额显示为“壹元肆角零分”，我想把他更正为“壹元肆角整”

roych · 发表于 2011-9-2 18:48:21

本帖最后由 roych 于 2011-9-2 18:49 编辑

建议不必改原函数，否则调试起来并非易事。用IIF改改不就可以了么？
=IIf(Right(UpNumber(([金额]),0,True),2)="零分",Left(UpNumber(([金额]),0,True),Len(UpNumber(([金额]),0,True))-2),UpNumber(([金额]),0,True))
要学会变通思路噢。

xyh2732 · 发表于 2011-9-2 19:43:45

roych 发表于 2011-9-2 18:48
建议不必改原函数，否则调试起来并非易事。用IIF改改不就可以了么？
=IIf(Right(UpNumber(([金额]),0,True ...

谢谢你的回复，但是用这个角结尾的书后面没有整子，比如1.4显示“壹元肆角”正确应该是“壹元肆角整”后面有个整子，这个要怎么改啊？

roych · 发表于 2011-9-2 19:51:33

那就加个“整”字吧：
=IIf(Right(UpNumber(([金额]),0,True),2)="零分",Left(UpNumber(([金额]),0,True),Len(UpNumber(([金额]),0,True))-2)&"整",UpNumber(([金额]),0,True))

xyh2732 · 发表于 2011-9-2 19:54:17

谢谢ROYCH老师的指点

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 请各位老师班我改一下转换大写金额问题

本帖子中包含更多资源

评分

群介绍
主题无相 (随机显示版	同地区群块其他地区)