以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]人民币大写负数如何变通?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100416)

--  作者:time
--  发布时间:2017/5/11 10:06:00
--  [求助]人民币大写负数如何变通?
请教出库发货单“发货数量”为”负数“(退货业务)大写金额如何显示?我编制的系统大写显示为零,小写显示为负数。请教如何在大写金额前显示加上”负“字?如果不能实现请教如何显示为”读取数“的绝对值的大写金额?
--  作者:有点色
--  发布时间:2017/5/11 10:31:00
--  
Dim d As Double = -12345
Dim str As String = iif(d>=0, CUNumber(d), "负" & CUNumber(d*-1))
msgbox(str)