Funkcija Round [VBA]

Zaokro┼żi ┼ítevilsko vrednost na navedeno ┼ítevilo decimalk.

warning

To konstanto, funkcijo ali predmet omogo─Źimo z ukazom Option VBASupport 1, ki ga moramo vstaviti pred izvedljivo programsko kodo v modulu.


Ta funkcija implementira pravilo zaokro┼żanja, znano tudi kot ┬╗zaokro┼żi-na-sodo┬ź. S tem pravilom se, ko je razlika med ┼ítevilom za zaokro┼żevanje in njemu najbli┼żjim celim ┼ítevilom enaka 0,5, ┼ítevilo zaokro┼żi na najbli┼żjo sodo ┼ítevilo. Glejte primere spodaj, da izveste ve─Ź o tem pravilu.

note

Bodite pozorni, saj funkcija VBA Round deluje druga─Źe kot funkcija LibreOffice Calc Round. V programu Calc se, ─Źe je razlika med ┼ítevilom za zaokro┼żevanjem in najbli┼żjim celim ┼ítevilom natanko 0,5, ┼ítevilo zaokro┼żi navzgor. Tako se v Calcu ┼ítevilo 2,5 zaokro┼żi na 3, z uporabo funkcije VBA Round pa se ista vrednost zaokro┼żi na 2 zaradi pravila ┬╗zaokro┼żi-na-sodo┬ź.


Skladnja:

Round(expression [,numdecimalplaces])

Vrnjena vrednost:

Double

Parametri:

expression: numeri─Źen izraz, ki bo zaokro┼żen.

numdecimalplaces je neobvezen argument, ki dolo─Źa ┼ítevilo zna─Źilnih ┼ítevk, na katere ┼żelimo zaokro┼żiti vrnjeno vrednost. Privzeta vrednost je 0.

Kode napak:

5 Neveljaven klic procedure

Primer:


    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
  

Naslednji primeri ilustrirajo pravilo ┬╗zaokro┼żi-na-sodo┬ź:


    ' Zaokro┼żanje na najbli┼żje celo ┼ítevilo, brez decimalk (decimalplaces = 0)
    MsgBox Round(3.5) ' 4
    MsgBox Round(4.5) ' 4
    MsgBox Round(5.5) ' 6
    MsgBox Round(6.5) ' 6
    ' Zaokro┼żanje z 2 decimalkama (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
  

Podprite nas!