Kategorien
Berechnung CodeArchiv VBA

VBA Aufrunden

Beschreibung

Das wird immer mal wieder gesucht! Erzwungenes Aufrunden. Zu diesem Thema habe ich diese Funktion gefunden und möchte sie euch nicht vorenthalten.

Parameter

Parameter NameParameter Wert
BetragZahl die Aufgerundet werden soll!
Anzahl_Stellen Optionale die Zahl der Stellen hinter dem Komma, auf die Aufgerundet werden soll. Der Standard Wert ist = 0

Rückgabe

Rückgabe TypRückgabe Wert
DoubleDer aufgerundete Wert

Code

Public Function Aufrunden(Betrag As Double, Optional Anzahl_Stellen As Integer = 0) As Double
	Aufrunden = Int((Betrag * (10 ^ Anzahl_Stellen)) + 1) / 10 ^ Anzahl_Stellen
End Function

Download