Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Real zur nächst kleineren Ganzzahl abrunden (https://www.delphipraxis.net/61466-real-zur-naechst-kleineren-ganzzahl-abrunden.html)

tn249 21. Jan 2006 22:05

Re: Real zur nächst kleineren Ganzzahl abrunden
 
oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

alzaimar 21. Jan 2006 22:15

Re: Real zur nächst kleineren Ganzzahl abrunden
 
trunc schnippelt den Nachkommaanteil ab, liefert einen integer, int macht das Gleiche, liefert jedoch einen Extended.
Wer korrekt runden möchte, sollte sowas versuchen:
Delphi-Quellcode:
Function CorrectRound (aValue, aGranularity : Extended) : Extended;
Begin
  Result := Int (aValue/aGranularity + 0.5)*aGranularity;
End;
Beispiele:
Delphi-Quellcode:
Begin
  a := CorrectRound (1237.567, 0.10); // 1237,600
  a := CorrectRound (1237.567, 0.01); // 1237,570
  a := CorrectRound (1237.567, 1.00); // 1238,000
  a := CorrectRound (1237.567, 10.00); // 1240,000
  a := CorrectRound (1237.567, 0.25); // 1237,500
  a := CorrectRound (1237.567, 2.00); // 1238,000
  a := CorrectRound (1237.567, 5.00); // 1240,000
...

EDatabaseError 16. Mai 2006 13:24

Re: Real zur nächst kleineren Ganzzahl abrunden
 
Zitat:

Zitat von tn249
oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

Ausgrab...

Delphi-Quellcode:
ResultI := ceil(Result);
der Befehl ceil ist Undefiniert??? Hä... brauch ich noch was in uses? Delphi 2005 PE


Mfg
Tobi

DGL-luke 16. Mai 2006 13:32

Re: Real zur nächst kleineren Ganzzahl abrunden
 
Naja, was braucht man denn, wenn man mathematische Funktionen sucht?

EDatabaseError 16. Mai 2006 13:34

Re: Real zur nächst kleineren Ganzzahl abrunden
 
Zitat:

Zitat von DGL-luke
Naja, was braucht man denn, wenn man mathematische Funktionen sucht?

Danke. Leider ist die Hilfe von D 2005 PE so doof die findet nur jeden 3. Befehl! Da ist ja die von D3 Besser!!!

Byby

Mfg
Tobi


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz