by Murray Reed (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 1st September 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Calculates a persons age.
Dim intAge As Integer
Dim datThisYearsBirthday As Date
datDateOfBirth = Format(datDateOfBirth, "mm/dd/yyyy") 'Standardize Input
datThisYearsBirthday = Left(datDateOfBirth, 5) 'Year defaults to current year
intAge = DateDiff("yyyy", datDateOfBirth, Now)
If Now < datThisYearsBirthday Then intAge = intAge - 1
CalculateAge = intAge
End Function