mod mit extendet

[Dax]

Delphi-Quellcode:

function FloatMod(left, right: Extended): Extended;
begin
  Result := Frac(left / right) * right;
end;