Menghitung Jumlah Hari dan Tahun di Antara Dua Buah Tanggal

Anda dapat menggunakan kode ini untuk mengetahui jumlah  hari ulang tahun anda.                               Pada sub Form_Load(), ketikkan kode-kode berikut.

Private Sub Form_Load()

mytotaldays = DateDiff("d", "20/06/77", "20/06/10")

myyears = Int(mytotaldays / 365)

mydays = mytotaldays - myyears * 365

MsgBox "jumlah hari di antara tanggal tersebut adalah " & mytotaldays & "hari, atau " & myyears & "tahun," & mydays & "hari"

End Sub

Berikut hasilnya :