Calculate the age

This sample code shows how to calculate the age of a person.

Public Function DateLimit(ByVal dtp As DateTimePicker)
Dim i As Integer
i = DateDiff(DateInterval.Year, dtp.Value, Date.Today)
If i < 18 Then MessageBox.Show("Age should be above 18", "SMAS", MessageBoxButtons.OK)
End If
End Function


Author: srinivasa reddy tatikonda09 Jan 2009 Member Level: Silver   Points : 2

Public Sub CalcAge(vDate1 As Date, vdate2 As Date, ByRef vYears As Integer,
ByRef vMonths As Integer, ByRef vDays As Integer)
' Comments : calculates the age in Years, Months and Days
' Parameters:
' vDate1 - D.O.B.
' vDate2 - Date to calculate age based on
' vYears - will hold the Years difference
' vMonths - will hold the Months difference
' vDays - will hold the Days difference
vMonths = DateDiff("m", vDate1, vdate2)
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
If vDays < 0 Then
' wierd way that DateDiff works, fix it here
vMonths = vMonths - 1
vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
End If
vYears = vMonths \ 12 ' integer division
vMonths = vMonths Mod 12 ' only want leftover less than one year
End Sub

Its working for me

Best Regards
Srinivasa Reddy

  • Do not include your name, "with regards" etc in the comment. Write detailed comment, relevant to the topic.
  • No HTML formatting and links to other web sites are allowed.
  • This is a strictly moderated site. Absolutely no spam allowed.
  • Name: