I know in the long run the company will have to move to a 4 digit year for people birthdates but for now how do i get the computer to recognize someone born in say 1929? the birth date is stored as a string of 8 in a text file like xx-xx-xx or month-day-year:
everything is fine until the person is born under 1929 or xx-xx-29
Code:
With udtInfo
sPatientDoB = .Birth
dateDOb = DateSerial(Mid$(sPatientDoB, 7, 2), Mid$(sPatientDoB, 1, 2), Mid$(sPatientDoB, 4, 2))
AGE = DateDiff("yyyy", dateDOb, Date$)