| 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; |
|
|