Membulatkan Bilangan Pecahan atau Decimal di Visual Basic 6

Dalam kasus kali ini saya menggunakan Database SQL 2000 dengan Type Data Decimal

Ilustrasi Form Data Jabatan di Perusahaan :

Jika Tunjangan Kesehatan di dapat dari satu kali Gaji Pokok dibagi 12 bulan yang hasil pembagiannya dibayarkan setiap bulan kepada karyawan.

Contoh kode jabatan STF (Staff) dengan Gaji Pokok Rp.850.000 / 12 = Rp. 70.833,33333333

Tunjangan Kesehatan untuk karyawan dengan jabatan Staff per bulan ialah =Rp. 70.833,333333 (Tujuh Puluh Ribu Delapan Ratus Tiga Puluh Tiga Koma Tiga Tiga Tiga Tiga  Tiga Tiga  Rupiah)

 

Gambar 1. Sebeleum Pembulatan, Hasil Masih Berbentuk Desimal

Step 1 : Buatlah Function dengan kode sebagai berikut

Private Function Genapkan(ByVal Number As Double, Optional Range = 100) As Double

  Genapkan = (Round((Number / Range) + 0.49)) * Range

End Function

Step 2 : Ketikan Kode pada Keypress di TextBox Gaji Pokok

Private Sub txt_gapok_KeyPress(KeyAscii As Integer)

If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or

KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then

   KeyAscii = 13

   txt_tjkes = Genapkan(txt_gapok.Value / 12)

txt_tjjab.SetFocus

End If

End Sub

Tunjangan Kesehatan Setelah dibulatkan untuk Level Staff dengan Gaji Pokok Rp. 850.000 / 12 =

Rp. 70.900 (Tujuh Puluh Ribu Sembilan Ratus Rupiah)

Catatan : Setelah dibulatkan maka terdapat penambahan Tunjangan Kesehatan bagi karyawan antara Rp. 1 sampai dengan Rp. 99 tergantung dari Gaji pokok yang ditetapkan akan tetapi hasil pembulatan tetap tidak akan melebihi dari Rp. 99 (Sembilan puluh sembilan rupiah).

Coding di : PrivateSub txt_gapok Keypress sebenarnya ada 3 perintah eksekusi :

1. If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or

KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Memerintahkan hanya dapat di input dengan angka 0123456789 dan mengunci tombol Keyboard kecuali tombol angka.

Jika anda ingin mengunci tombol angka pada keyboard dan hanya mengaktifkan tombol huruf atau tombol-tombol selain angka, anda tinggal mengubah nilai pada >= Asc("0")<= Asc("9") menjadi >= Asc("a")<= Asc("z") dan menghilangkan kode (Or  KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) karna kode tersebut adalah kode untuk mematikan tombol Spasi dan Delete pada Keyboard. Biasanya ini digunakan untuk nama jabatan, nama karyawan, dll.

2. Then KeyAscii = 13

txt_tjjab.SetFocus Memerintahkan jika tombol enter di tekan maka kursor akan menuju ke textbox selanjutnya dalam ilustrasi ini ke Textbox Tunjangan Jabatan.

3. txt_tjkes = Genapkan(txt_gapok.Value / 12) Memanggil Fungsi pembulatan yang telah dibuat diatas yaitu Genapkan dan memerintahkan untuk menampilkan hasil pembagian dari Gaji Pokok / 12 kedalam TextBox Tunjangan Kesehatan setelah dieksekusi oleh Function tersebut.