正负型数据如何转换成汉字型？请老师指点迷津。。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 正负型数据如何转换成汉字型？请老师指点迷津。。

共有9421人关注过本帖树形打印复制链接主题：正负型数据如何转换成汉字型？请老师指点迷津。。

55774012

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：12 积分：154 威望：0 精华：0 注册：2012/6/1 11:45:00

正负型数据如何转换成汉字型？请老师指点迷津。。 发帖心情

Post By：2012/6/29 17:46:00 [只看该作者]

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

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

请老师指点迷津，先谢谢啦！

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/6/29 17:53:00 [只看该作者]

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

55774012

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：12 积分：154 威望：0 精华：0 注册：2012/6/1 11:45:00

Post By：2012/7/2 15:33:00 [只看该作者]

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

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

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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)

主题：正负型数据如何转换成汉字型？请老师指点迷津。。