Membulatkan Nilai Uang (VB 6.0)

Pada kesempatan yang sangat banyak ini (karena libur), saya akan memberikan sebuah kode program vb 6.0 yang sangat berguna yaitu Membulatkan Nilai Uang. Membulatkan Nilai Uang? Bagaimana caranya dan untuk apa?

Jika Anda pernah belanja ke supermarket tentunya Anda tau bahwa terkadang ada barang yang memiliki harga yang tidak pas. Ketika Anda membayar ke kasir dan total harga belanja Anda tidak pas, maka kasir tersebut Akan membulatkannya sesuai dengan aturan pembulatan.
Contohnya: Total belanjaan Anda Rp. 45.025 maka akan dibulatkan menjadi Rp. 45.000. Jika total belanjaan Anda Rp. 45.080 maka akan dibulatkan menjadi Rp. 46.000.

Kita langsung saja ke cara pembuatannya.

1. Pada Form yang aktif tambahkan sebuah Textbox dan atur Properties Name=Text1.
2. Tambahkan sebuah Commandbutton dan atur Properties Caption=Bulatkan, Name=Command1.
3. Setelah itu masuk ke jendela kode dan ketikkan kode berikut ini.

Function BulatkanUang(ByVal NilaiUang As Double, Optional ByVal BatasDihapus As Integer = 0, Optional ByVal PecahanTerkecil As Integer = 100) As Double
Dim d As Double
d = NilaiUang - (Fix(NilaiUang / PecahanTerkecil) * PecahanTerkecil)
If (d = 0) Or (d <= BatasDihapus) Then
    BulatkanUang = NilaiUang - d
Else
    BulatkanUang = NilaiUang + (PecahanTerkecil - d)
End If
End Function






Dobule Click Textbox dan masukkan kode berikut ke dalam Text1_Change(KeyCode As Integer, Shift As Integer).




If Not IsNumeric(Me.Text1.Text) Then Me.Text1.Text = "" 'Kode ini berguna untuk mencegah adanya selain angka yang dimasukkan ke dalam Textbox






Double Click Commandbutton dan masukkan kode berikut ke dalam Command1_Click().




Me.Text1.Text = BulatkanUang(Me.Text1.Text, 15, 100) '15 adalah nilai minimal yang akan membulatkan kebawah dan 100 nilai minimal mata uang.






Selesai dan lihat hasilnya.

Download contoh programnya disini atau disini.