Real aufrunden

Hallo,

wie kann ich z.B. 3.45 auf volle 10 runden? 32.45 z.B. auf 40. Es soll immer auf den nächsten Zehner gerundet werden.

**mkinzler**

Sollte so zahl := ((zahl div 10)+1)*10; funktionieren

**Satty67**

Mist, hab' mir Mühe gegeben und war trotzdem zu langsam

Delphi-Quellcode:

			function RoundTo10(d : Double): Integer;

begin

  Result := Round(d / 10 +1) *10;

end;

(hmmm, ich lasse mal meine Ursprungsversion, die scheint doch richtig zu funktionieren...)

div eignet sich nicht für Fließkommazahlen

Danke Euch beiden.

**manfred_h**

Dieser Thread könnte Dir auch noch eine Idee geben:

aaaaaaaaaa_10 (Gast) n/a Beiträge	#1 Real aufrunden 6. Aug 2009, 10:59 Hallo, wie kann ich z.B. 3.45 auf volle 10 runden? 32.45 z.B. auf 40. Es soll immer auf den nächsten Zehner gerundet werden.
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#2 Re: Real aufrunden 6. Aug 2009, 11:03 Sollte so zahl := ((zahl div 10)+1)*10; funktionieren Markus Kinzler
	Zitat

Satty67 Registriert seit: 24. Feb 2007 Ort: Baden 1.566 Beiträge Delphi 2007 Professional	#3 Re: Real aufrunden 6. Aug 2009, 11:09 Mist, hab' mir Mühe gegeben und war trotzdem zu langsam markieren Delphi-Quellcode: function RoundTo10(d : Double): Integer; begin Result := Round(d / 10 +1) *10; end; (hmmm, ich lasse mal meine Ursprungsversion, die scheint doch richtig zu funktionieren...) div eignet sich nicht für Fließkommazahlen
	Zitat

aaaaaaaaaa_10 (Gast) n/a Beiträge	#4 Re: Real aufrunden 6. Aug 2009, 11:11 Danke Euch beiden.
	Zitat

manfred_h Registriert seit: 4. Nov 2005 Ort: Basel 442 Beiträge Delphi XE2 Enterprise	#5 Re: Real aufrunden 6. Aug 2009, 11:12 Dieser Thread könnte Dir auch noch eine Idee geben: http://www.delphipraxis.net/internal...ht=runden+real Shalom Manfred
	Zitat