Ganze Zahl immer auf nächste 50 runden?

[Benedikt Magnus]

Deine Beschreibung sagt Rundung auf hundert, das wäre dann so:

Delphi-Quellcode:

function RundenAufHundert(const Wert: Integer): Integer;
begin
  Result := Round(Wert / 100) * 100;
end;

Immer auf die vollen Fünfziger zu runden würde ich so machen:

Delphi-Quellcode:

function RundenAufFünfzig(const Wert: Integer): Integer;
begin
  Result := Round(Wert / 50) * 50;
end;

Oder allgemein:

Delphi-Quellcode:

function RundenAufZahl(const Wert, Zahl: Integer): Integer;
begin
  Result := Round(Wert / Zahl) * Zahl;
end;