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