Public Function Ceiling(ByVal number As Double, ByVal significance As Double) As Double
Ceiling = Int(number / -significance) * -significance
End Function
Public Function Floor(ByVal number As Double, ByVal significance As Double) As Double
Floor = Int(number / significance) * significance
End Function