Simulate Excel's Ceiling function in Delphi?

[paul_nicholls]

Hi Lifepower, thanks for the info

I don't suppose you could still help with the code conversion?

I am having trouble converting the Visual Basic code below to Pascal; I don't know if my translation is correct or not.

Public Function Ceiling(ByVal X As Double, Optional ByVal Factor As Double = 1) As Double
    ' X is the value you want to round
    ' is the multiple to which you want to round
    Ceiling = (Int(X / Factor) - (X / Factor - Int(X / Factor) > 0)) * Factor
End Function

The bit that is throwing me off is this

Int(X / Factor) > 0

.

cheers,
Paul