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**

markieren

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>;

Aufrunden auf den nöchsten 5 oder 10er

Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Re: Aufrunden auf den nöchsten 5 oder 10er

Forumregeln

manfred_h Registriert seit: 4. Nov 2005 Ort: Basel 442 Beiträge Delphi XE2 Enterprise	#1 Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:20 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
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:22 gZahl := (Zahl DIV <schritt> + 1) * <schritt>; Markus Kinzler
	Zitat

Nikolas Registriert seit: 28. Jul 2003 1.528 Beiträge Delphi 2005 Personal	#3 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:23 teil die Zahl durch fünf, schneide die Kommastellen ab (floor) und multipliziere (das Ergebniss+1) mit 5. Erwarte das Beste und bereite dich auf das Schlimmste vor.
	Zitat

dominikkv Registriert seit: 30. Sep 2006 Ort: Gundelfingen 1.109 Beiträge Delphi 2007 Professional	#4 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:24 markieren Delphi-Quellcode: if (Zahl mod 5) > 0 then Zahl := (Zahl div 5 + 1) *5; edit: verschrieben^^ Dominik Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
	Zitat

Nikolas Registriert seit: 28. Jul 2003 1.528 Beiträge Delphi 2005 Personal	#5 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:28 0,5 div 5 ? Erwarte das Beste und bereite dich auf das Schlimmste vor.
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#6 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:29 Zitat von Nikolas: 0,5 div 5 ? Ergibt 0 Markus Kinzler
	Zitat

dominikkv Registriert seit: 30. Sep 2006 Ort: Gundelfingen 1.109 Beiträge Delphi 2007 Professional	#7 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:32 stimmt... 0.5 div 5 geht nicht Zitat: Operator ist auf diesen Operandentyp nicht anwendbar Dominik Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
	Zitat

manfred_h Registriert seit: 4. Nov 2005 Ort: Basel 442 Beiträge Delphi XE2 Enterprise	#8 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:32 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;
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#9 Re: Aufrunden auf den nöchsten 5 oder 10er 12. Okt 2007, 15:35 gZahl := (Trunc(Zahl) DIV <schritt> + 1) * <schritt>; Markus Kinzler
	Zitat