![]() |
Re: Real zur nächst kleineren Ganzzahl abrunden
oder ganz einfach abrunden mit floor()
bzw aufrunden mit ceil() Gruß Thomas |
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:
Beispiele:
Function CorrectRound (aValue, aGranularity : Extended) : Extended;
Begin Result := Int (aValue/aGranularity + 0.5)*aGranularity; End;
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 ... |
Re: Real zur nächst kleineren Ganzzahl abrunden
Zitat:
Delphi-Quellcode:
der Befehl ceil ist Undefiniert??? Hä... brauch ich noch was in uses? Delphi 2005 PE
ResultI := ceil(Result);
Mfg Tobi |
Re: Real zur nächst kleineren Ganzzahl abrunden
Naja, was braucht man denn, wenn man mathematische Funktionen sucht?
|
Re: Real zur nächst kleineren Ganzzahl abrunden
Zitat:
Byby Mfg Tobi |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr. |
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