Source Coding Peritungan Denda Berdasarkan Selisih Tanggal VB6

Pada kesempatan ini kami akan mengulas tentang dengan judul artikel .

Artikel Terkait Visual Basic 6 Lainnya
Selamat datang kembali di blog tutorial visual basic, kali ini saya 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 :

Penelusuran terkait Visual Basic 6

Berlangganan artikel
Daftarkan e-mail Anda dibawah ini
Selanjutnya cek e-mail untuk verifikasi.
Kategori Terpopuler

0/Posting Komentar/Komentar

Lebih baru Lebih lama