Calculate Age from DOB

Polonious

Anybody know how to calculate an age from a given date of birth in vb.

tempest

In all fairness Third From The Top .

Eitherways the algorithm to calculate it is pretty easy.
If the solution above doesn't work then look up the DatePart function (I think, It's been a while), and sit down with a piece of paper and think about how to perform a difference between two dates.

Subtract the date of birth year from the current year to get the difference in the years.

If the date of birth month is less than the current month then
"What do I do here"
Otherwise if greater
do something
else
do compare the days fields.

Talliesin

Private Function Age(ByVal DOB As Date) As Long
    Dim PastBirthday As Boolean
    Dim CurDate As Date
    CurDate = Now
    Select Case Month(DOB) - Month(CurDate)
        Case 0
            PastBirthday = Day(CurDate) >= Day(DOB)
        Case Is < 0
            PastBirthday = True
        Case Is > 0
            PastBirthday = False
    End Select
    If PastBirthday Then
        Age = Year(CurDate) - Year(DOB)
    Else
        Age = Year(CurDate) - Year(DOB) - 1
    End If
End Function

Polonious

Thanks Fella's