UnitQESBPCSMath
DeclarationFunction ESBCeil(const X: Extended): Extended;Implementation
function ESBCeil (const X: Extended): Extended; begin Result := Int (X); if Result < X then Result := Result + 1.0; End;