Membulatkan Angka Pecahan

Tips berikut menunjukkan kepada Anda bagaimana caranya membulatkan bilangan pecahan berdasarkan pilihan tertentu. Berikut Source kodenya

'Deskripsi: Membulatkan suatu bilangan pecahan berdasarkan pilihan tertentu.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke editor Form yang bertalian.
'--------------------------------------------------------------------------------



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

Private Sub Form_Load()
'Ganti '19.8455' dengan bilangan yang ingin Anda bulatkan.
'Ganti '2' dengan jumlah digit setelah koma untuk hasil setelah pembulatan.
MsgBox Round(19.8455, 2)
End Sub