以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  阿拉伯数字转换为中文货币格式问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86314)

--  作者：digger_deng --  发布时间：2016/6/15 12:11:00 --  阿拉伯数字转换为中文货币格式问题 CUMoney 将阿拉伯数字转换为中文货币格式。 语法 CUMoney(Value) Value：要转换的阿拉伯数字。 例如： Dim Currency as String Currency = CUMoney(12345.12) Output.Show(Currency) 输出为：壹万贰千叁佰肆拾伍圆壹角贰分 可是如果遇到负数，只显示“元整”二字

--  作者：大红袍 --  发布时间：2016/6/15 12:15:00 --   Dim d As Double = -12345.67 Dim Currency As String If d < 0 Then     Currency = "负" & CUMoney(d*(-1)) Else     Currency = CUMoney(d) End If Output.Show(Currency)