Simulate Excel's Ceiling function in Delphi?

[LP]

The bit that is throwing me off is this

Int(X / Factor) > 0

I suppose it is either 1 or 0 depending on the outcome. Direct conversion would probably be this:

Result:= (Trunc(X / Factor) - (X / Factor - Ord(Trunc(X / Factor) > 0))) * Factor;

[paul_nicholls]

Thanks Lifepower

Unfortunately I have since discovered that that whole routine I was converting seems to give incorrect values anyway!

I have found that this:

Result := Round(n / s + 0.4) * s

Seems to give me accurate results

cheers,
Paul