Funkce Round [VBA]

Zaokrouhlí číselnou hodnotu na daný počet desetinných míst.

Tato konstanta, funkce nebo objekt se povoluje příkazem Option VBASupport 1, který je umístěn v modulu před spustitelným programem.

Tato funkce implementuje pravidlo zaokrouhlování známé jako „zaokrouhlování na sudou“. Podle něj se tehdy, když je rozdíl mezi zaokrouhlovaným číslem a nejbližším celým číslem roven 0,5, číslo se zaokrouhlí na nejbližší sudé číslo. Příklady s tímto pravidlem následují níže.

Mějte na paměti, že se funkce VBA Round odlišuje od funkce Round z aplikace Collabora Office Calc. Jestliže je v Calcu rozdíl mezi zaokrouhlovaným číslem a nejbližším celým číslem přesně 0,5, číslo se zaokrouhlí nahoru. Například číslo 2,5 se tak zaokrouhlí na 3, zatímco funkce VBA Round zaokrouhlí hodnotu 2,5 na 2 podle pravidla „zaokrouhlování na sudou“.

Round(expression [,numdecimalplaces])

Double

expression: Číselný výraz, který se má zaokrouhlit.

numdecimalplaces: Nepovinný argument, který určuje, na kolik desetinných míst se má číslo zaokrouhlit. Výchozí hodnota je 0.

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

Následující příklady ilustrují pravidlo „zaokrouhlování na sudou“:

' Zaokrouhlování na nejbližší celé číslo (decimalplaces = 0)
MsgBox Round(3.5) ' 4
MsgBox Round(4.5) ' 4
MsgBox Round(5.5) ' 6
MsgBox Round(6.5) ' 6
' Zaokrouhlování na 2 desetinná místa (decimalplaces = 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