Runden geht so:
Delphi-Quellcode:
Function DecimalRound (aValue, aGranularity : Extended) : Extended;
Begin
Result := Int (0.5 + aValue/aGranularity(*aGranularity;
End;
aValue ist der Wert, der gerundet werden soll, und zwar entsprechend der Granularität.
Delphi-Quellcode:
x := DecimalRound (123.4567,10); // x = 120
x := DecimalRound (123.4567, 5); // x = 125
x := DecimalRound (123.4567,0.1); // x = 123.5
x := DecimalRound (123.4567,0.01); // x = 123.46
etc.