Funktion Round [VBA]

Inhalte
Index 🔎︎

# VBA-Funktion Round

Rundet einen numerischen Wert auf eine angegebene Anzahl von Dezimalstellen.

Diese Konstante, diese Funktion oder dieses Objekt wird durch Platzierung der Anweisung Option VBASupport 1 vor dem auszuführenden Programmcode des Moduls aktiviert.

Diese Funktion implementiert die Rundungsregel, die als „Auf-gerade-runden“ bekannt ist. Mit dieser Regel wird immer dann, wenn die Differenz zwischen der zu rundenden Zahl und ihrer nächsten ganzen Zahl gleich 0,5 ist, die Zahl auf die nächste gerade Zahl gerundet. Sehen Sie sich die Beispiele unten an, um mehr über diese Regel zu erfahren.

Beachten Sie, dass die VBA-Funktion Round anders funktioniert als die Funktion Round von LibreOffice-Calc. Wenn in Calc die Differenz zwischen der zu rundenden Zahl und der nächsten ganzen Zahl genau 0,5 beträgt, wird die Zahl aufgerundet. Daher wird in Calc die Zahl 2,5 auf 3 gerundet, während bei Verwendung der VBA-Funktion Round der Wert 2,5 aufgrund der Regel „Auf-gerade-runden“ auf 2 gerundet wird.

### Syntax:

Round(expression [,numdecimalplaces])

### Rückgabewert:

Double

### Parameter:

expression: Der zu rundende numerische Ausdruck.

numdecimalplaces: Optionales Argument, das die Anzahl der Dezimalstellen im resultierenden gerundeten Wert angibt. Der Standardwert ist 0.

### Fehlercodes:

5 Ungültiger Prozeduraufruf

### Beispiel:

        Option VBASupport 1
        Sub Example_Round
            Dim r
            r = Pi
            print r ' 3,14159265358979
            print Round(r, 5) ' 3,14159
            r = exp(1)
            print r ' 2,71828182845904
            print Round(r) ' 3
        End Sub

Die folgenden Beispiele veranschaulichen die Regel „Auf-gerade-runden“:

        ' Rundung auf die nächste ganze Zahl (Nachkommastellen = 0)
        MsgBox Round(3.5) ' 4
        MsgBox Round(4.5) ' 4
        MsgBox Round(5.5) ' 6
        MsgBox Round(6.5) ' 6
        ' Rundung mit 2 Nachkommastellen (Nachkommastellen = 2)
        MsgBox Round(1.555, 2) ' 1.56
        MsgBox Round(1.565, 2) ' 1.56
        MsgBox Round(1.575, 2) ' 1.58
        MsgBox Round(1.585, 2) ' 1.58

Verwandte Themen

Calc-Funktion ROUND

VBA – Mathematische Funktionen