Office中国论坛/Access中国论坛

标题: 请各位老师班我改一下转换大写金额问题 [打印本页]

作者: xyh2732 时间: 2011-9-2 13:43
标题: 请各位老师班我改一下转换大写金额问题
请各位老师帮我修改一下大写金额的代码，当我在金额输入有角没分时大写金额错误显示为"零分"，比如我在金额输入1.4，大写金额显示为“壹元肆角零分”，我想把他更正为“壹元肆角整”[attach]46588[/attach]

作者: roych 时间: 2011-9-2 18:48
本帖最后由 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

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

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

作者: roych 时间: 2011-9-2 19:51
那就加个“整”字吧：
=IIf(Right(UpNumber(([金额]),0,True),2)="零分",Left(UpNumber(([金额]),0,True),Len(UpNumber(([金额]),0,True))-2)&"整",UpNumber(([金额]),0,True))

作者: xyh2732 时间: 2011-9-2 19:54
谢谢ROYCH老师的指点

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)