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