Aufrunden auf den nöchsten 5 oder 10er

[manfred_h]

Hallo zusammen

habe ein Problem das ich einen Wert immer auf den nächsten 5er oder 10er
Aufrunden muss.

z.B.
0.5 > 5
2 > 5
5.1 > 10
8 > 10

könte mir da wer helfen?
Habe es schon die Suche Verwendent aber leider nichts gefunden.

Shalom
Manfred

[mkinzler]

gZahl := (Zahl DIV <schritt> + 1) * <schritt>;

[Nikolas]

teil die Zahl durch fünf, schneide die Kommastellen ab (floor) und multipliziere (das Ergebniss+1) mit 5.

[dominikkv]

Delphi-Quellcode:

  if (Zahl mod 5) > 0 then
    Zahl := (Zahl div 5 + 1) *5;

edit: verschrieben^^

[Nikolas]

0,5 div 5 ?

[mkinzler]

Zitat von Nikolas:

0,5 div 5 ?

Ergibt 0

[dominikkv]

stimmt... 0.5 div 5 geht nicht

Zitat:

Operator ist auf diesen Operandentyp nicht anwendbar

[manfred_h]

Ihr Seid ja alle Super schnelllll

Zitat von mkinzler:

gZahl := (Zahl DIV <schritt> + 1) * <schritt>;

Habe das zuerst versuch und erhalte die Meldung:
E2015 Operator not applicable to this operand type

(var_1 + var_2 div 5 + 1) * 5;

[mkinzler]

gZahl := (Trunc(Zahl) DIV <schritt> + 1) * <schritt>;

[Apollonius]

Nein, denn da kommt für alle Vielfachen von 5 das falsche Ergebnis raus. Ich schlage vor:
gZahl := Ceil(Zahl/<schritt>) * <schritt>;