Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[灌水]让CUNumber可处理小数

1楼
don 发表于: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编辑过]
2楼
狐狸爸爸 发表于:2008/10/11 18:38:00
呵呵,谢谢
3楼
kylin 发表于:2008/10/12 10:25:00
好东西,顶一下!
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.