Gibt es MOD auch mit Real ausgabe?

[Klaus01]

Hallo,

meinst Du vielleicht so etwas?

Delphi-Quellcode:

function floatMod(zahl:double;divisor:integer):double;
begin
  //result := (frac(zahl / divisor)) * divisor;
  result := zahl - (trunc(zahl) div divisor) * divisor;
end;

Grüße
Klaus