ESBMod Function
Returns Floating Point Modulus, given as X - ESBFloor ( X / Y ) * Y.

Unit
QESBPCSMath

Declaration
Function ESBMod(const X, Y: Extended): Extended;

Description
ESBTolerance may need to be changed to a different value.

Parameters
First Float to process
Second Float to process

Category
Arithmetic Routines for Floats

Implementation

function ESBMod (const X, Y: Extended): Extended;
begin
     if FloatIsZero (Y) then
          raise EMathError.Create (rsDivideByZero);

     Result := X - ESBFloor (X / Y) * Y
End;


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