[灌水]让CUNumber可处理小数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [灌水]让CUNumber可处理小数

共有23776人关注过本帖树形打印复制链接主题：[灌水]让CUNumber可处理小数

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

[灌水]让CUNumber可处理小数 发帖心情

Post By：2008/10/11 18:12:00 [只看该作者]

Dim v As Double = 12345678.69
Dim i As Integer = Math.Floor(v)
Dim T As String = Math.Round(v-i,2).ToString().SubString(2)
For n As Byte = 0 To 9
T = T.Replace(n,"零壹贰叁肆伍陆柒捌玖".SubString(n,1))
Next
Output.Show(CUNumber(i) & "点" & T)

[此贴子已经被作者于2008-10-11 18:22:41编辑过]

[本帖被加为精华]