Aufrunden auf den nöchsten 5 oder 10er

[dominikkv]

oder

Delphi-Quellcode:

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

[manfred_h]

Danke für die vielen Vorschläge von Euch allen!

Habs mit der Variante von mkinzler gelöst:
gZahl := (Trunc(Zahl) DIV <schritt> + 1) * <schritt>; Shalom
Manfred

[dominikkv]

der rundet dann aber die 5 zur 10 auf

die beste Methode ist IMHO die von Apollonius:
Zahl := Ceil(Zahl/5) * 5; Du musst allerdings noch die Unit Math in die uses aufnehmen.
Wenn du das nicht willst kannst du meine Funktion nehmen:

Delphi-Quellcode:

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

Allerdings funktioniert die nicht mit negativen Zahlen, zB -5,3

[Progman]

warum nehmt ihr nicht einen simplen Vergleich?

Delphi-Quellcode:

if Zahl <= 5 then Ergebnis := 5 else
 if ((Zahl >5) and (Zahl <= 10)) then Ergebnis := 10;

[mkinzler]

Zitat von Progman:

warum nehmt ihr nicht einen simplen Vergleich?

Delphi-Quellcode:

if Zahl <= 5 then Ergebnis := 5 else
 if ((Zahl >5) and (Zahl <= 10)) then Ergebnis := 10;

Da es für jedes Vielfaches gelten soll

[Progman]

achso, sorry, aus der Anfangsfrage hatte ich entnommen, dass es nur um Zahlen bis 10 geht

[winkelmesser]

Rein mathematisch

( Ganzzahl ( ( Zahl / 5 ) – 0,01 ) * 5 ) + 5

mfg

[Namenloser]

Wozu -0.01, wenn man fragen darf

[winkelmesser]

Hallo NamenLozer


Um sicherzustellen das bei der Zahl 5.0 es mir den Multiplikator 0 liefert
Denn
5/5 = 1
1 – 0,01 = 0,99 // 0,01 bis max 0,09 bei 1/10 schritten
Ganzzahl von 0,99 = 0

Wie gesagt Rein mathematisch
Getestet mit Excel

mfg

[Khabarakh]

Zitat von winkelmesser:

Rein mathematisch

Waren die bisherigen Funktionen also unmathematisch? Ich würde sagen, Apollonius' Version[*] ist sogar noch mathematischer, da sie durch Verwendung der korrekten Funktion (ceiling statt floor) den hässlichen Epsilon-Wert vermeidet.
[*]Dass er es jedoch geschafft hat, das "<schritt>" in den (bzw. zumindest meinen) HTML-Code zu schmuggeln, finde ich etwas beängstigend .

Zitat von HTML Tidy:

line 865 column 890 - Fehler: element "SCHRITT" undefined