Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0

Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0 | Visual Basic Magazine - Pada posting kali ini saya akan menunjukan cara menentukan jumlah hari berdasarkan dua buah DTPicker. Logika seperti ini umumnya di gunakan untuk menentukan total denda pada aplikasi yg mengelola penyewaan seperti perpustakaan, rental movie dan lain sebagainya.

Untuk lebih memahaminya, silakan ikuti tutorial sederhana berikut ini. Sebagai bahan uji coba dan latihan, silakan sobat buat sebuah disain form seperti dibawah ini :

Setelah itu, kita akan menempatkan logika dan coding program pada event DTPicker2_Change sebagai procedur eksekusi untuk menentukan jumlah hari (terlambat) dan denda. Double klik pada DTPicker2 dan masukkan script berikut ini tepat diantara Private Sub DTPicker2_Change() dengan End Sub :

Text1.Text = DateDiff("d", DTPicker1.Value, DTPicker2.Value) If Text1.Text < 0 Then Text1.Text = 0 Text2.Text = "Rp.0" Else Text2.Text = "Rp." & Text1.Text * 1000 End If

Kemudian agar DTPicker1 dan DTPicker2 menyesuikan tanggal dengan setting tanggal dikomputer, masukkan script berikut pada Form_Load() :

DTPicker1.Value = Now DTPicker2.Value = Now

Sekarang coba jalankan program tersebut, lalu pilih tanggal melalui DTPicker2 dan lihat hasil nya. Untuk lebih jelasnya, sobat bisa doenload contoh projectnya disini :

Sekian dulu postong saya yang berjudul Menghitung Selisih Hari Dari 2 Buah DTPicker Dengan Visual Basic 6.0. Semoga bermanfaat dan selamat mencoba.