Hallo
Ich wollte die "mod" function nachprogrammieren..
aber irgendwie kommen da falsche Ergebnisse.
Delphi-Quellcode:
function mody(Zahl :longint; Teiler :longint): longint;
var fix3 : longint;
runden1 ,runden2, Fix2,Fix1, erst: real;
begin
erst := Zahl / Teiler;
Fix1 := (erst - round(erst));
fix2 := (Fix1 * Teiler);
runden1 := fix2 - round(fix2);
runden2 := runden1 * 10;
If runden2 > 5 Then Fix3 := round(fix2) + 1;
If runden2 <= 5 Then Fix3 := round(fix2);
result := Fix3;
end;
----------
habt Ihr eine Idee woran das liegt?
oder gibt es evtl source zu so einer Funktion?
[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. 
Mfg, Daniel[/edit]