Fungsi Pembulatan angka di Visual Basic

Sebelumnya saya sudah membuat artikel tentang pembulatan angka di php, nah kali ini saya akan membahas tentang pembulatan angka di VISUAL BASIC,tentunya sebuah software, seringkali kita membutuhkan fungsi untuk menggenapkan/membulatkan sebuah bilangan.Langkah awalnya kalian ikuti step by step berikut.

Buatlah satu Fungsi untuk menggenapkan bilangan

1. Private Function buletin(ByVal Number As Double, Optional Range = 10) As double  
2.   buletin = (Round((Number / Range) + 0.49)) * Range  
3. End Function  

Contoh Fungsi untuk menggenapkan bilangan dalam sebuah aplikasi:

1. Private Sub Form_Load()  
2.   MsgBox buletin(456565656, 10) 'ini untuk menggenapkan puluhan  
3.   MsgBox buletin(456565656, 100) 'ini untuk menggenapkan ratusan  
4.   MsgBox buletin(456565656, 1000) 'ini untuk menggenapkan ribuan  
5.   MsgBox buletin(456565656, 10000) 'ini untuk menggenapkan puluhan ribu  
6.   MsgBox buletin(456565656, 100000) 'ini untuk menggenapkan  ratusan ribu  
7.   MsgBox buletin(456565656, 1000000) 'ini untuk menggenapkan jutaan  
8.   MsgBox buletin(456565656, 10000000) 'ini untuk menggenapkan pulahan juta  
9.   'dan seterusnya  
10. End Sub  

---

Klik Like/share jika anda menyukai tulisan Share