% Dim YrsExp, StartYr, BirthYr, Age BirthYr = 1969 StartYr = 1987 Today = Year(Date) YrsExp = Today - StartYr Age = Today - BirthYr %>