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 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
Download

VBA Aufrunden
1 Datei(en) 0.18 KB