Revision: 11951
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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