Fungsi Round [VBA]

Fungsi Putaran mengembalikan angka yang dibulatkan ke jumlah digit tertentu.

warning

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.


Sintaksis:


        Round( expression as Double [,numdecimalplaces as Integer] ) 
    

Nilai balikan:

Double

Parameter:

ekspresi: Diperlukan. Ekspresi numerik yang akan dibulatkan.

numdecimalplaces: Pilihan. Menentukan berapa banyak ruang di sebelah kanan desimal yang termasuk dalam pembulatan. Standarnya adalah 0.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


        REM ***** BASIC *****
        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
    

Mohon dukung kami!