| ESBCeil Function | 
Unit
QESBPCSMath
Declaration
Function 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; | 
|  |