【Access示例】向上取整/小数向上取整；小数为3.33，有保留整数得4，请教如何实现？

时　间:2017-02-10 08:45:05
作　者:缪炜   ID：24010  城市：江阴
摘　要:在实际的应用中，如果想对小数上向取整该如何操作呢，在Excel中本身是存在RoundUp函数的，但在Access中该如何实现呢？
正　文:

'方法一
Private Function RoundUp(dvalue As Single) As Long
    
    RoundUp = -Int(-1 * dvalue)
End Function
'方法二
Function upint(ByVal dvalue As Single) As Long
    Select Case Sgn(dvalue)
    Case 1
        upint = Int(dvalue) + 1
    Case 0
        upint = 1
    Case -1
        upint = Fix(dvalue)
    End Select
End Function

附   件:

点击下载此附件

演   示: