werte auf nächsten 1000er runden

[negaH]

Delphi-Quellcode:

Value := Trunc((Value + 999) / 1000) * 1000;
Value := (Value + 999) div 1000 * 1000;