access四舍五入取整round_Access向上取整的相似Excel的Ceiling函数

在Excel中有自带的Ceiling函数可实现向上取整，但Access,没，所需自己写就一下

以下有2个函数的表记，可参看：

Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double

' X is the value you want to round

' Factor is the optional multiple to which you want to round, defaulting to 1 (默认值为0)

Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor

End Function

Public Function Ceiling(RoundValue As Currency) As Currency

Dim TheValue As Currency

TheValue = RoundValue

Select Case TheValue - Int(TheValue)

Case Is <= 0.25

Ceiling = Int(TheValue)

Case Is >= 0.5

Ceiling = Int(TheValue) + 1

Case Is >= 0.26

Ceiling = Int(TheValue) + 0.5

End Select

End Function