Pembulatan Angka Dibelakang Koma dengan VB6

Dalam membuat sebuah sistem aplikasi sering kali kita dihadapkan dengan perhitungan angka yang hasil dari perhitungan tersebut mendapati adanya angka pecahan / desimal. Terutama sering kita jumpai perhitungan pada aplikasi Billing, Hitungan Pembayaran Lembur dengan berpatokan menit dan lain-lain, untuk menghadapi kasus semacam ini pada aplikasi tentunya fungsi pembulatan angka yang akan kita mainkan. 

Pada Visual Basic 6.0 (VB6) fasilitas semacam ini tentunya sudah ada dan kita tinggal mengolahnya saja, sebagai contoh  angka 56,87876 dibulatkan menjadi 57 atau 56,88. Langsung saja kita buat sebuah project Visual Basic 6.0 (VB6) kemudian tambahkan TextBox dan CommandButton. Double klik pada form lalu copas function coding dibawah ini

Function Round(nValue As Double, nDigits As Integer) As Double

Round = Int(nValue * (10 ^ nDigits) + 0.5) / (10 ^ nDigits)

End Function

Double klik juga pada commandbutton dan copas coding dibawah ini

MsgBox Round(Text1.Text, 0)

Sekarang coba RUN/F5, inputkan angka 56,87876 pada TextBox kemudian klik CommandButton maka akan tampil sebuah pesan hasil pembulatan menjadi 57, Jika kita hanya ingin membulatkan hanya 2 angka saja dibelakang koma, tinggal ganti saja angka 0 (cetak tebal) diatas menjadi angka 2, hasil pembulatan menjadi 56,88. Cukup sederhana dan mudah bukan akan tetapi telah menyelesaikan satu permasalahan dan semoga bermanfaat