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;


HTML generated by Time2HELP
http://www.time2help.com