Differenz zu nächster ganzen Zahl berechnen

14/04/2010 - 15:28 von udo herrmann | Report spam
Hallo zusammen,

hab ein kleines Problem. ich möchte Zahlen mit 2 Dezimalstellen aufrunden,
indem ich die Differenz zur nàchsten ganzen Zahl berechne und dann zur
ursprungszahl addiere.

Also nicht nur runden, sondern zunàchst die Diff berechnen. Ich brauch die
Diff für ein anderes Programm. (Lohnprogramm).

Kann mir jmd helfen? Wie heißt die VBA Programmierung für die Differenz zur
nàchsten ganzen Zahl?

Danke im voraus

Udo
 

Lesen sie die antworten

#1 Peter Doering
14/04/2010 - 15:41 | Warnen spam
Hallo,

udo herrmann wrote:

hab ein kleines Problem. ich möchte Zahlen mit 2 Dezimalstellen aufrunden,
indem ich die Differenz zur nàchsten ganzen Zahl berechne und dann zur
ursprungszahl addiere.

Also nicht nur runden, sondern zunàchst die Diff berechnen. Ich brauch die
Diff für ein anderes Programm. (Lohnprogramm).

Kann mir jmd helfen? Wie heißt die VBA Programmierung für die Differenz zur
nàchsten ganzen Zahl?



www.donkarl.com?FAQ2.1 kennst du?

Die Differenz bekommst du, indem du das Ursprungs- vom gerundeten Ergebnis
abziehst:

Dim dblBetrag As Double
Dim dblGerundet As Double

dblBetrag = 1234.56
dblGerundet = fctRound(dblBetrag, 0)
debug.Print "Diff = " & Str(dblGerundet - dblBetrag)

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen