Delphi-Quellcode:
kmneu := kmneu + 0.1* (trunc(min (1005,kmneu)+0.5) div 10 + 1);
...
Genau die gleiche Idee wie sx2008, nur eben in einer Zeile. Es ging ja um die Kürze, nicht um verständlichen Code.
.
Und die Deckelung auf 1005 ist auch eingebaut.
trunc(x + 0.5)
konvertiert einen Double in einen Integer und kompensiert dabei eventuelle Rundungfehler.