Round Function [VBA]

Ini-round ang isang numeric na halaga sa isang tinukoy na bilang ng mga decimal digit.

Ang pare-pareho, function o bagay na ito ay pinagana sa pahayag Opsyon VBASupport 1 inilagay bago ang executable program code sa isang module.

Ang function na ito ay nagpapatupad ng rounding rule na kilala bilang "round-to-even". Sa panuntunang ito, kapag ang pagkakaiba sa pagitan ng numerong ipapa-round at ang pinakamalapit na integer nito ay katumbas ng 0.5, ang numero ay ni-round sa pinakamalapit na even na numero. Tingnan ang mga halimbawa sa ibaba upang matuto nang higit pa tungkol sa panuntunang ito.

Magkaroon ng kamalayan na ang VBA's Bilog gumagana nang iba kaysa sa LibreOffice Calc's Bilog function. Sa Calc, kung ang pagkakaiba sa pagitan ng numerong ibi-round at ang pinakamalapit na integer ay eksaktong 0.5, kung gayon ang numero ay ni-round up. Kaya, sa Calc ang numero 2.5 ay bilugan sa 3 samantalang gumagamit ng VBA's Bilog function na ang value na 2.5 ay ni-round sa 2 dahil sa "round-to-even" na panuntunan.

Round(expression [,numdecimalplaces])

Double

pagpapahayag : Ang numeric na expression na bilugan.

numdecimalplaces : Opsyonal na argumento na tumutukoy sa bilang ng mga decimal na digit sa resultang rounded value. Ang default na halaga ay 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
  

Ang mga sumusunod na halimbawa ay naglalarawan ng "round-to-even" na panuntunan:

    ' Pag-round sa pinakamalapit na integer (decimalplaces = 0)
    MsgBox Round(3.5) ' 4
    MsgBox Round(4.5) ' 4
    MsgBox Round(5.5) ' 6
    MsgBox Round(6.5) ' 6
    ' Pag-round na may 2 decimal na digit (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