Cara menghitung UMUR dengan Visual Basic

Selamat berjumpa kembali kawan.....

        Saya akan memposting , bagaimana sih caranya menghitung umur kita, dapat berapa bulan kita mulai dari lahir hingga saat ini, berapa jam, berapa menit........?????

Ok gan,,,.. Langsung saja....
1.Buka Visual Basicnya
2.Buat Formnya
3.Buat Textbox,Label, dan ComboBox
4.Isi koding dibawah ini.

Private Sub proses_Click()
Dim tgllahir As Date
tgllahir = Text1.Text
Text2.Text = DateDiff("yyyy", Text1.Text, Now)
Text3.Text = DateDiff("m", Text1.Text, Now)
Text4.Text = DateDiff("w", Text1.Text, Now)
Text5.Text = DateDiff("d", Text1.Text, Now)
Text6.Text = DateDiff("h", Text1.Text, Now)
Text7.Text = DateDiff("n", Text1.Text, Now)
Text8.Text = DateDiff("s", Text1.Text, Now)
End Sub


Private Sub Command2_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
MsgBox "Data sudah dihapus"

End Sub



Private Sub hapus_Click()
End
End Sub

        Contoh seperti yang dibawah ini, kita hanya memasukkan Tanggal lahir,bulan,dan tahun, kemudian klik Proses, maka akan kita ketahui umur kita.

Semoga bermanfaat .....