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