Mencari Selisih Tanggal Dengan Menggunakan Fungsi Datediff Pada Microsoft Visual Basic 6.0

Fungsi DateDiff merupakan kebalikan dari fungsi DateAdd. Fungsi DateDiff digunakan untuk mengurangkan 2 buah tanggal, sedangkan fungsi DateAdd digunakan untuk menambahkan tanggal. Dalam mencari selisih 2 buah tanggal, kekuangan fungsi DateDiff adalah fungsi DateDiff mengurangkan jumlah hari atau bulan atau tahun secara terpisah dari sebuah tanggal dengan cara menghitung total dari hari atau bulan atau tahun. Dengan kata lain berapa hari, berapa bulan serta berapa tahun secara lengkap selisih antara 2 buah tanggal tidak dapat dicari dengan menggunakan fungsi DateDiff. Agar lebih jelas, mari kita perhatikan contoh dibawah ini :

Hari = DateTime.DateDiff("d", CDate(“19/07/2003”), CDate(“17/12/2012”)) akan menghasilkan 3439

Bulan = DateTime.DateDiff("m", CDate(19/07/2003), CDate(17/12/2012)) akan menghasilkan 113

Tahun = DateTime.DateDiff("yyyy", CDate(19/07/2003), CDate(17/12/2012)) akan menghasilkan 9

Apabila melihat hasil perhitungan dengan menggunakan fungsi DateDiff diatas, maka kita akan bertanya selisih antara tanggal 19/07/2003 dan 17/12/2012 sebanyak 3439 hari itu berapa hari, berapa bulan dan berapa tahun ? Bila dihitung secara manual selisih antara tanggal 19/07/2003 dan 17/12/2012 adalah 9 tahun, 5 bulan, 29 hari.

Sekarang mari kita lihat penerapan fungsi DateDiff dalam program pada Visual Basic 6.0, berikut langkah - langkahnya :

·           Buka proyek Standard EXE yang baru.

·           Klik menu Project  =>  Components atau tekan tombol Ctrl + T pada keyboard atau klik kanan pada ToolBox, lslu pilih Components.

·           Centang Microsoft Windows Common Controls-2 6.0, lalu klik Apply lalu klik OK (perhatikan gambar di bawah)

 

 Gbr 1

Kemudian objek DTPicker akan muncul di ToolBox

 Gbr 2

·   Disain tampilan form seperti gambar berikut dengan menggunakan objek Label, TextBox dan CommandButton dan DTPicker

 Gbr 3

·      Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
CommandButton1	Name         Caption   Font Style BackColor	Cmd_Hitung &Hitung MS Sans Serif, Bold, 10 1 - Graphical &H00C0FFFF&
CommandButton2	Name         Caption   Font Style BackColor	Cmd_Keluar &Keluar MS Sans Serif, Bold, 10 1 - Graphical &H00C0FFFF&
Label1	Caption Font ForeColor BackColor	Mencari Selisih 2 Buah Tanggal Dengan Menggunakan Fungsi DateDiff MS Sans Serif, Bold, 12 &H00FF0000& &H0080FF80&
Label2	Caption Font ForeColor BackColor	Tanggal Pertama   : MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label3	Caption Font ForeColor BackColor	Tanggal Kedua     : MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label4	Caption Font ForeColor BackColor	Selisih MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label5	Caption Font ForeColor BackColor	atau MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label6	Caption Font ForeColor BackColor	atau MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label5	Name Caption Font ForeColor BackColor	Lbl_SelisihHari (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label5	Name Caption Font ForeColor BackColor	Lbl_SelisihBln (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Label5	Name Caption Font ForeColor BackColor	Lbl_SelisihThn (dikosongkan) MS Sans Serif, Bold, 8 &H00000040& &H0080FF80&
Line1	BorderColor BorderWidth	&H008080FF& 2
Line2	BorderColor BorderWidth	&H008080FF& 2
Line2	BorderColor BorderWidth	&H008080FF& 2

Form1

Name Caption BackColor

Frm_CariSelisihTgl Program Untuk Mencari Selisih 2 Buah Tanggal &H0080FF80&

·           Klik menu View  =>  Code, lalu Copy Paste (copas) kode dibawah ini :

Dim TglSystem As Date

Dim HariMulai, HariSelesai, HariSystem As Integer

Dim BlnMulai, BlnSelesai, BlnSystem As Integer

Dim ThnMulai, ThnSelesai, ThnSystem As Integer

Dim SelisihHari, SelisihBln, SelisihThn As Integer

Dim Hari, Bulan, Tahun As Integer

Dim Tgl_Mulai As Date

Dim Tgl_Selesai As Date

Private Sub Cmd_Hitung_Click()

Tgl_Mulai = Format(Me.DTPicker_Mulai.Value, "dd mm yyyy")

Tgl_Selesai = Format(Me.DTPicker_Selesai.Value, "dd mm yyyy")

Hari = DateTime.DateDiff("d", CDate(Tgl_Mulai), CDate(Tgl_Selesai))

Bulan = DateTime.DateDiff("m", CDate(Tgl_Mulai), CDate(Tgl_Selesai))

Tahun = DateTime.DateDiff("yyyy", CDate(Tgl_Mulai), CDate(Tgl_Selesai))

Me.Lbl_SelisihHari.Caption = Hari & " Hari"

Me.Lbl_SelisihBln.Caption = Bulan & " Bulan"

Me.Lbl_SelisihThn.Caption = Tahun & " Tahun"

End Sub

Private Sub Cmd_Keluar_Click()

Unload Me       'atau bisa juga menggunakan perintah "end"

End Sub

Private Sub Form_Load()

TglSystem = Format(Now, "dd mm yyyy")

HariSystem = Format(Now, "dd")

BlnSystem = Format(Now, "mm")

ThnSystem = Format(Now, "yyyy")

End Sub

·           Jalankan program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·           Hasilnya ketika program dijalankan

 Gbr 4

Download Program Cari Selisih Tanggal-2  disini