Lagi dan lagi saya akan bagikan kode program VB 6.0 (Visual Basic 6.0) yang berguna bagi agan-agan semua. Pada kali ini saya bagikan kode untuk menghitung selisih atara dua buah tanggal. Biasanya ini digunakan untuk menghitung berapa hari lagi akan dilaksanakan sebuah event yang telah dijadwalkan dari hari ini.
Baiklah karena saya sangat tidak suka bertele-tele langsung saja sedot. Berikut langkah pembuatannya.
- Buat sebuah Project VB 6.0 baru.
- Pada Form yang aktif tambahkan 2 Label, 2 Datepicker dan 1 Commandbutton.
- Tambahkan Datepicker dengan cara pilih menu Project --> Components (Ctrl+C) --> centang Microsoft Windows Common Controls-2.6.0 (SP6).
- Atur Properties Label 1 dan 2 dengan Caption=Tanggal Mulai: dan Caption=Tanggal Akhir:.
- Atur Properties Datepicker 1 dan 2 dengan Name=dtpAwal dan Name=dtpAkhir:
- Atur Properties Commandbutton dengan Name=cmdSelisih dan Caption=Selisih.
- Klik 2x tombol "Selisih" dan pada cmdSelisih_Click() ketikkan kode di bawah ini.
- Jalankan dan lihat hasilnya. Selesai dan terima kasih.
Dim Selisih As Integer
Dim tglAwal As Date
Dim tglAkhir As Date
tglAwal = Me.dtpAwal.Value
tglAkhir = Me.dtpAkhir.Value
Selisih = DateDiff("d", tglAwal, tglAkhir)
MsgBox "Selisihnya adalah " & Selisih & " hari.", vbInformation, "Info"