The simplest version I think would be:



Public function  Ceiling(ByVal X As Double) As Double

Ceiling = Int(X) - (X - Int(X) > 0)

End Function



Watch out for negative numbers, as David Smart suggested. This function
would round them up.