以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [灌水]让CUNumber可处理小数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=838)

--  作者：don --  发布时间：2008/10/11 18:12:00 --  [灌水]让CUNumber可处理小数 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编辑过]

--  作者：狐狸爸爸 --  发布时间：2008/10/11 18:38:00 --   呵呵，谢谢

--  作者：kylin --  发布时间：2008/10/12 10:25:00 --   好东西，顶一下！