Private Sub DateTimePicker1_ValueChanged() Handles DateTimePicker1.ValueChanged
Dim Birth As Date = DateTimePicker1.Value
Dim year, month, day As Integer
While year <= (Now.Year - Birth.Year)
While day <= (Now.Day - Birth.Day)
day += 1
End While
month += 1
End While
year += 1
End While
year -= 1 : month -= 1 : day -= 1
TextBox1.Text = year & " year " & month & " month " & day & " day"
End Sub
Try this code to calculate your age
hahahah nice but not working properly. You cant calc your age with this if your birthday was not past away. check it again :-)
ReplyDeletei.e: my date birth is 26/8/1990
and
today is 5/2/2013 (d/m/yyyy)
this will return 23 Years & -1 month and -1 days. It's wrong obviously.
output should be = 22 Years & 6 Months & some days. etc