Delphi-PRAXiS - Delphi Real aufrunden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Real aufrunden (https://www.delphipraxis.net/138266-real-aufrunden.html)

aaaaaaaaaa_10

6. Aug 2009 10:59

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

6. Aug 2009 11:03

Re: Real aufrunden

Sollte so

Delphi-Quellcode:

zahl := ((zahl div 10)+1)*10;

funktionieren

Satty67

6. Aug 2009 11:09

Re: Real aufrunden

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

aaaaaaaaaa_10

6. Aug 2009 11:11

Re: Real aufrunden

Danke Euch beiden.

manfred_h

6. Aug 2009 11:12

Re: Real aufrunden

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

Alle Zeitangaben in WEZ +1. Es ist jetzt 11:07 Uhr.