以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统一进位的计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93628)
--  作者：cuicuibing
--  发布时间：2016/12/2 15:10:00
--  统一进位的计算
请教一组小数
原数字                    得到数字
1.2238                   1.23
1.2258                   1.23
1.22                       1.22
1.2                         1.20
1                            1.00

如何实现，自动保留2位小数，并且2位小数后有数字自动进位。
如果是整数的不进位，如果1位小数的不进位.
如上面规律。
--  作者：有点蓝
--  发布时间：2016/12/2 15:28:00
--  
Dim i As Double = 1.2238
Output.Show(math.Ceiling(i*100)/100)