script untuk menghitung umur vb

untuk menghitung antara dua buah datetime, kita dapat menggunakan fungsi built in pada visual basic yaitu DateDiff. untuk lebih jelasnya dapat melihat source code dibawah ini, untuk contoh masukan sebuah command button dan sebuah dtpicter

Private Sub Command1_Click()
Dim totalhari As Integer
Dim umur As Integer
Dim hari As Integer

totakhari = DateDiff("d", DTPicker1.Value, Date)
umur = totakhari / 365
hari = totakhari - (umur * 365)
MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"
End Sub

selamat mencoba :)