Einzelnen Beitrag anzeigen

Darlo

Registriert seit: 28. Jul 2008
Ort: München
1.195 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#7

AW: Ganze Zahl immer auf nächste 50 runden?

  Alt 26. Feb 2017, 21:09
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;
So isses.
Philip
  Mit Zitat antworten Zitat