Source Code Peritungan Denda Berdasarkan Selisih Tanggal 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 :

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.

Download Source Code Program