343 mod 66.25 => in delphi realisieren

[Almond]

Ich möchte gerne einen Restwert erhalten.

und zwar von
343 mod 66.25
Das Problem ist : Der Divisor ist 66.25 = also eine Dezimalzahl/rationale Zahl.

in Visual Basic war das kein Problem.
Da konnte man hinter mod ruhig auch rationale Zahlen schreiben.
Das Ergebnis war dann eine [ganze ?] Zahl (wenn ich mich recht erinnere).
Rest wäre dann 11.75.

Und sowas brauch ich auch jetzt.

kann mir jemand sagen, wie man das dann umsetzt?

[marabu]

Guten Morgen.

Den Teiler 0 solltest du extern abfangen:

Delphi-Quellcode:

function Remainder(dividend, divider: Extended): Extended;
begin
  Result := Frac(dividend / divider) * divider;
end;

Grüße vom marabu