Membuat Fungsi Pembulatan Angka Di Visual Basic

Membuat Fungsi Pembulatan Angka Di Visual Basic

Berikut adalah contoh fungsi pembulatan dalam VB :

Function Bulatkan(nValue As Double, nDigits As Integer) As Double
    Bulatkan = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)
End Function

contoh penggunaan fungsi :

Dim hasil,angka As Double
angka = 19.56
hasil = Bulatkan ( angka, 0 )
Msgbox hasil

contoh di atas hasilnya adalah angka 20


keterangan :
- Fungsi tsb akan menampilkan jumlah digit di belakang koma sebanyak 'nDigits'
- Fungsi tsb akan membulatkan keatas jika di belakang koma adalah 0.5 keatas dan akan membulatkan ke bawah jika di belakang koma adalah 0.4 kebawah.
contoh : 0.4 = 0 dan 0.5 = 1

Semoga bermanfaat !