Skip to content

Instantly share code, notes, and snippets.

@imbaker

imbaker/gist:10734755

Last active August 29, 2015 13:59
Show Gist options
  • Save imbaker/10734755 to your computer and use it in GitHub Desktop.
Save imbaker/10734755 to your computer and use it in GitHub Desktop.
Download ZIP
Method to calculate a person's age at their next birthday
Raw
gistfile1.vb
Private Function GetAgeNextBirthday(ByVal dateOfBirth As Date, ByVal asOfDate As Date) As Integer
Dim dateOfBirthmmdd As Integer = Format(dateOfBirth, "yyyyMMdd")
Dim asOfDatemmdd As Integer = Format(asOfDate, "yyyyMMdd")
GetAgeNextBirthday = ((asOfDatemmdd - dateOfBirthmmdd) / 10000) + 1
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment