Real zur nächst kleineren Ganzzahl abrunden

[tn249]

oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

[alzaimar]

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]

Zitat von tn249:

oder ganz einfach abrunden mit floor()

bzw aufrunden mit ceil()

Gruß
Thomas

Ausgrab...

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


Mfg
Tobi

[DGL-luke]

Naja, was braucht man denn, wenn man mathematische Funktionen sucht?

[EDatabaseError]

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