以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]有没有类似Excel里的MROUND函数？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104192)
--  作者：新福星
--  发布时间：2017/7/25 10:12:00
--  [求助]有没有类似Excel里的MROUND函数？
MROUND 函数返回最接近要舍入值的基数的倍数值，通俗的解释为：返回一个multiple的整数倍数，这个返回值在multiple所有整数倍数中最接近要舍入的数值number。谢谢！
--  作者：有点甜
--  发布时间：2017/7/25 10:48:00
--  

 

向上

 

Dim n1 As Double = 0.51
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 = 0.51
Dim n2 As Double = 0.5
Dim n As Integer = n1 / n2
If n * n2 > n1 Then n -= 1
msgbox(n*n2)