Source Code Peritungan Denda Berdasarkan Selisih Tanggal VB6

Artikel Terkait Tutorial VB6
Selamat datang kembali di blog tutorial visual basic, kali ini kami bagikan tutorial membuat program peritungan denda pada vb6 berdasarkan selisih tanggal.
Untuk jelasnya silahkan simak tutorial nya dibawah ini:
Tutorial Membuat Peritungan Denda Berdasarkan Selisih Tanggal VB6 :

1. Buatlah sebuah form di visual basic 6.0
2. Lalu buatlah 4 label, 2 DTPicker, dan 2 TextBox. Hingga form tampil seperti dibawah ini :
Tutorial Membuat Peritungan Denda Berdasarkan Selisih Tanggal VB6, Peritungan Denda Berdasarkan Selisih Tanggal, Membuat Peritungan Denda di vb6, cara menghitung denda dengan vb6, menghitung denda sesuai tanggal di vb6

3. Lalu masukkan Coding berikut pada form tersebut :
Private Sub DTPicker2_Change()
Text1.Text = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
If Text1.Text < 0 Then
Text1.Text = 0
Text2.Text = "Rp.0"
ElseIf DTPicker1.Value = DTPicker2.Value Then
Text1.Text = 0
Text2.Text = "Rp.0"
Else
Text2.Text = "Rp." & Text1.Text * 1000 '(angka 1000 silakan diganti sesuain nominal denda nya)
End If
End Sub

Private Sub Form_Load()
DTPicker1.Value = Now
DTPicker2.Value = Now
End Sub
Dan jalankan program nya..

Diatas adalah Peritungan Denda Berdasarkan Selisih Tanggal, dengan jumlah denda 1000 untuk 1 hari, Anda bisa merubah jumlah denda tersebut dengan merubah angka 1000 sesuai dengan keinginan anda.

Sekian tutorial vb kali ini, semoga bermanfaat. Terima kasih :)

Tag : Membuat Peritungan Denda di vb6, cara menghitung denda dengan vb6, menghitung denda sesuai tanggal di vb6.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Rekomendasi Web Hosting
Hosting murah minimal order 1 bulan cuma 20rb. Gunakan voucher diskon 30%, kode voucher: MCP, total bayar hanya 14rb!!! Daftar sekarang