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


  共有23659人关注过本帖树形打印复制链接

主题:[灌水]让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编辑过]

[本帖被加为精华]
 回到顶部