MOD und EXTENDED arbeiten nicht zusammen, alternative?

[bigg]

na wenn dann so:

Delphi-Quellcode:

function ExtendedMod(Value: Extended; Divisor: Integer):Extended;
var x: Extended;
begin 
x      := (Value / Divisor);
Result := x - Floor(x);
end;