Advanced Search

Return to Snippet

Revision: 11951
at February 25, 2009 06:26 by Joshnolan118
Initial Code 
Public Function Age(ByVal DoB As Date) As Byte
    Dim Birthday As Date
    Birthday = DateSerial(Year(Now()), Month(DoB), Day(DoB))
    Age = Year(Now()) - Year(DoB)
    If Birthday > Now() Then Age = Age - 1
End Function
Initial URL 









Initial Description














Initial Title





vb6 - Age - Find Age from DateOfBirth









Initial Tags














Initial Language





Visual Basic