Menghitung Selisih Tanggal Dengan Visual Basic 6.0

Cara membuat aplikasi perhitungan selisih tanggal menggunakan VB 6.0.
1. Buat Project1 baru.
2. Buatlah :
a. Buat 2 DTPicker (Untuk menampilkan DTPicker klik menu Project - Components - beri centang pada Microsoft Windows Common Controls-2 6.0 - OK
b. 1 CommandButton
c. 1 Label untuk menampilkan hasil.

3. Ketik Coding dibawah pada Command1.

Private Sub Command1_Click()
Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo Pesan
SelisihBulan = DateDiff("m", DTPicker1.Value, DTPicker2.Value)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
Label1.Caption = "Selisih : " & Tahun & " Tahun " & Sisa & " Bulan"
Exit Sub
Pesan:
MsgBox "Tipe tanggal salah!", vbCritical, "Error Tanggal"
End Sub

Jalankan Aplikasi..

Semoga bermanfaat.