FMod "streikt"

[himitsu]

Zitat:

Delphi-Quellcode:

function FMod(const ANumerator, ADenominator: Extended): Extended;
begin
  Result := ANumerator - Trunc(ANumerator / ADenominator) * ADenominator;
end;