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 penggalan / 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) lalu 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