ModuloFUNCTION

Descrition

Returns the remainder of a floored division.

Syntax

Remainder.d = Modulo(Value.d, Divisor.d)

Parameters

Value	The dividend number.
Divisor	The divisor number.

Return value

The reminder with the sign of the divisor.

Snippet

Procedure.d Modulo(Value.d, Divisor.d)
  
  Protected Modulo.d
  
  Modulo = Mod(Value, Divisor)
  If (Divisor > 0.0 And Value < 0.0 And Modulo < 0.0) Or (Divisor < 0.0 And Value > 0.0 And Modulo > 0.0)
    Modulo + Divisor
  EndIf
  
  ProcedureReturn Modulo
  
EndProcedure

Example

Debug Modulo(4.00, 1.0)
Debug Modulo(2.25, 1.0)
Debug Modulo(-2.25, 1.0)
Debug Modulo(-4.00, 1.0)

Debug Modulo(4.00, -1.0)
Debug Modulo(2.25, -1.0)
Debug Modulo(-2.25, -1.0)
Debug Modulo(-4.00, -1.0)

0.0
0.25
0.75
0.0
0.0
-0.75
-0.25
0.0