Ganze Zahl immer auf nächste 50 runden?

[Uwe Raabe]

Zitat von t.roller:

Nö: E2010 Inkompatible Typen: 'Integer' und 'Extended'

OK, dann eben so:

Delphi-Quellcode:

function RundenAufHundert(const Wert: Integer): Integer;
begin
  Result := Round(RoundTo(Wert, 2));
end;