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 Name
Parameter Wert
Betrag
Zahl 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 Typ
Rückgabe Wert
Double
Der 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