以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  【求助】如何实现12.1这样的数字自动调整为13，12.5以上的数字自动调整为14  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110910)

--  作者：李孝春 --  发布时间：2017/12/12 12:28:00 --  【求助】如何实现12.1这样的数字自动调整为13，12.5以上的数字自动调整为14 【求助】如何实现12.1这样的数字自动调整为13，12.5以上的数字自动调整为14

--  作者：don --  发布时间：2017/12/12 14:28:00 --   Dim v1,v2,v3  As Double v1=-12 v2 = Math.Round(v1,0) v3 = v1 -v2 If v2 <> v1  Then     If v1 > 0 Then         v2+ =1     Else         v2-=1     End If End If If Math.Abs(v3) >= 0.5 Then     If v1 > 0 Then         v2+ =1     Else         v2-=1     End If End If Output.Show(v2) [此贴子已经被作者于2017/12/12 14:29:42编辑过]

--  作者：有点甜 --  发布时间：2017/12/12 15:01:00 --   Dim d As Double = 12.5 Dim ary() = cstr(d).split(".") If ary.length = 2 Then     Dim d1 As Integer = ary(0)     Dim d2 As Integer = "0." & ary(1)     If d2 >= 0.5 Then         msgbox(d1+2)     Else         msgbox(d1+1)     End If End If