Code:
' given a persons date of birth and a School Year (i.e. Year 12 = Lower 6th) this function
' will report what year the person will be in that school level
Function YearSchoolLevelIs(SchoolLevel As Integer, DOB As Date) As Integer
YearSchoolLevelIs = Year(DOB) + 5 + SchoolLevel + IIf(Month(DOB) > 8, 1, 0)
End Function