以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  小数进位计算方法？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83958)
--  作者：jinzhengbe
--  发布时间：2016/4/20 11:05:00
--  小数进位计算方法？

小数点后1位数 例如

 

1.3 或者1.7

 

如果小数点后1位数  小于等于 5 自动转换成 .5  (例如： 1.3  -》1.5）

                           大于5 时候，自动加算成下一个整数（例如：1.7   -》2

 

应该怎么写？有案例也可以，

飞铲感谢！！！！
--  作者：大红袍
--  发布时间：2016/4/20 11:19:00
--  

向上

 

Dim n1 As Double = 1.7
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
If n * n2 < n1 Then n += 1
msgbox(n*n2)

 

向下

 

Dim n1 As Double = 1.3
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
If n * n2 > n1 Then n -= 1
msgbox(n*n2)