Thema: SimpleRoundTo

Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#1

SimpleRoundTo

  Alt 24. Dez 2012, 23:13
Ich habe schon die Fragen dazu im Forum gelesen, aber habe immer noch keine gute Antwort gefunden.

Ich benutze SimpleRoundTo, da ich kein kaufmännisches Runden haben möchte.

Habe zwei Extended Werte a = 0.55 und b = 18.5. Das Produkt ist 10.175 müsste also mit SimpleRountTo(a*b, -2) aufgerundet werden auf 10.18.

Im Debugger wird mir der Wert von
Zitat:
(AValue / LFactor) - 0.5) mit 1018
abgezeigt, der Wert von
Zitat:
Trunc(AValue / LFactor) - 0.5) mit 1017
!!??? Grrml

Jetzt habe ich in der Math Bibliothek mal Trunc durch Round ersetzt und mit mrRoundnearest gerundet. Dann zeigt der Degugger:
Zitat:
(AValue / LFactor) - 0.5) mit 1018
uns auch
Zitat:
Round(AValue / LFactor) - 0.5) mit 1018
, aber
Zitat:
(AValue / LFactor) - 0.5)*LFactor mit 10,17
.

Ich will doch einfach nur einen "normal" gerundeten Wert haben.

Wie erhalte ich hier den aufgerundeten Wert 10.18?
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat