以文本方式查看主题

-  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=21071)

--  作者:55774012
--  发布时间:2012/6/29 17:46:00
--  正负型数据如何转换成汉字型?请老师指点迷津。。

实例中只有将数据转换成金额大写,我想把数据转换成纯粹的数字大写:

例如:-132.25 要转换成"负壹佰叁拾贰点贰伍"

 

请老师指点迷津,先谢谢啦!


--  作者:狐狸爸爸
--  发布时间:2012/6/29 17:53:00
--  

请看看这里介绍的转换函数:

http://www.foxtable.com/help/topics/1345.htm

 


--  作者:55774012
--  发布时间:2012/7/2 15:33:00
--  

用CBNumber能转换负数的大写吗?

例如:-132 要转换成"负壹佰叁拾贰"


--  作者:狐狸爸爸
--  发布时间:2012/7/2 15:39:00
--  

既然是编码,没有什么是不可以的:

 

Dim v As Double = -123
Dim s As String = CUNumber(Math.abs(v))
If  v < 0 Then
   s =  "负" & s
End If
MessageBox.show(s)