Menampilkan selisih hari dalam VB

Langkah-langkah mencari selisih hari dalam VB (download):

1. Buatlah 3 (tiga) buah Label, tiga buah Textbox dan satu buah tombol Command
2. Label1 = captionnya --> Hari Pertama
Label2 = captionnya --> Hari Kedua
Label3 = captionnya --> Selisih Hari
Text1 = textnya --> kosongkan, namenya --> hari1
Text2 = textnya --> kosongkan, namenya --> hari2
Text3 = textnya --> kosongkan, namenya --> selisih
3. Double Click tombol Command, lalu ketikkan perintah berikut :

Private Sub Command1_Click()

If DatePart("yyyy", hari2.Text) > DatePart("yyyy", hari1.Text) Then
selisih.Text = Abs(DateDiff("y", hari2.Text, hari1.Text))
ElseIf
DatePart("yyyy", hari2.Text) = DatePart("yyyy", hari1.Text) Then
If DatePart("m", hari2.Text) = DatePart("m", hari1.Text) Then
If DatePart("d", hari2.Text) >= DatePart("d", hari1.Text) Then
selisih.Text = Abs(DateDiff("y", hari2.Text, hari1.Text))
End If
ElseIf
DatePart("m", hari2.Text) > DatePart("m", hari1.Text) Then
selisih.Text = Abs(DateDiff("y", hari2.Text, hari1.Text))
End If
End If
End Sub

4. Waktu menginputkan tanggal, tanggal hari pertama harus lebih kecil dari tanggal hari kedua.