Banyak cara dalam VB untuk membulatkan suatu bilangan/ angka desimal menjadi bilangan bulat. Jika Anda belum paham, berikut penjelasan singkatnya :
- Pembulatan Otomatis
Pembulatan ini dilakukan secara otomatis tergantung bilangannya.
Jika angka utamanya adalah ganjil dan angka desimalnya >= 0,5 maka dilakukan pembulatan ke atas (angka utama ditambah 1) dan bila angka desimalnya < 0,5 maka dilakukan pembulatan ke bawah.
Namun jika angka utamanya adalah 0 atau genap dan angka desimalnya > 0,5 maka dilakukan pembulatan ke atas dan bila angka desimalnya <= 0,5 maka dilakukan pembulatan ke bawah.
i = CInt(0.4) , hasilnya 0
i = CInt(0.5) , hasilnya 0
i = CInt(0.6) , hasilnya 1
i = CInt(1.4) , hasilnya 1
i = CInt(1.5) , hasilnya 2
i = CInt(1.6) , hasilnya 2
- Pembulatan Selalu ke Bawah
Pembulatan ini dilakukan selalu ke bawah berapapun angka desimalnya. Dengan kata lain akan menghilangkan angka desimalnya.
i = Int(1.1) , hasilnya 1
i = Int(1.5) , hasilnya 1
i = Int(1.8) , hasilnya 1
- Pembulatan Selalu ke Atas
Pembulatan ini dilakukan selalu ke atas berapapun angka desimalnya.
i = -Int(-(1.1)) , hasilnya 2
i = -Int(-(1.5)) , hasilnya 2
i = -Int(-(1.8)) , hasilnya 2
- Pembulatan Yang Ditentukan
Pembulatan ini dilakukan sesuai dengan Batas yang telah ditentukan.
Jadi bila angka desimalnya >= Batas maka dilakukan pembulatan ke atas dan bila angka desimalnya < Batas maka dilakukan pembulatan ke bawah.
Misalnya Batas yang ditentukan adalah 0,4 kodenya seperti ini :
Dim Nilai As Double, Hasil As Long
Nilai = 1.4 'bilangan yg akan dibulatkan
Hasil = Int(Nilai) + IIf(CDbl(CStr(Nilai - Int(Nilai))) >= 0.4, 1, 0) 'Batas = 0,4
MsgBox Hasil 'pesan Hasil = 2
Demikian tutorial kali ini, semoga bermanfaat .
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
