... Na ja, aber Round ist doch FALSCH... (Obwohl der Unterschied minimal ist)
Round benutzt das 'Bankersrounding', sodass bei X.5 auf die nächste GERADE Zahl gerundet wird. Das ist uncool.
Delphi-Quellcode:
...
P := Prozent(815,1000); // P = 82
P := Prozent(825,1000); // P = 82, dabei wäre 83 aber richtig (bei konsequentem Runden)
...
Besser ist diese Funktion:
Delphi-Quellcode:
Function AlzPercent (a,b : Integer) : Integer;
Begin
Result := Trunc (0.5 + 100.0*a/b);
End;