VB中这样取整用什么函数?如5/3=2,就是哪怕结果为1.1 取值也要为2(进1法吧).

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/15 15:02:53

VB中这样取整用什么函数?如5/3=2,就是哪怕结果为1.1 取值也要为2(进1法吧).

没有现成的函数,自己写一个吧,很简单
Function fixup(x As Double) As Integer
Dim a As Integer
a = Fix(x)
If a < x Then a = a + 1
fixup = a
End Function