Cara membuatnya:
1. Buka program Visual Basic anda
2. Buat sebuah Label-->(Tgl Lahir) dan sebuah CommandButton-->(CBHitung)
3. Aktifkan komponen Microsoft Windows Common Controls-2 6.0 ke dalam Toolbox
4. Masukkan komponen DTPicker ke Form-->Format ubah ke 0-dtpLongDate


5. Klik double pada CBHitung dan ketikkan kode berikut

Private Sub CBHitung_Click()
Dim jumlahhari As Integer
Dim umur As Integer
Dim hari As Integer
jumlahhari = DateDiff("d", DTPicker1.Value, Date)
umur = jumlahhari / 365
hari = jumlahhari - (umur * 365)
MsgBox "Umur Anda Saat Ini " & umur & " tahun " & hari & " hari"
End Sub

Untuk lebih sregnya lihat hasil program pada gambar berikut:


6. Klik pada ComboBox maka akan muncul sebuah kalender
7. Klik pada bulan dan tahun untuk menuju bulan dan tahun yang diinginkan
8. Klik pada tanggal
9. Klik pada CommandButton Hitung Umur
10.Selesai