Author: Jonas Bilinkevicius

How to calculate the approximate date of birth given the age

Answer:
1   
2   function TFFuncs.CalcDateFromAge(Age: Integer): TDateTime;
3   var
4     month, day, year, bmonth, bday, byear: word;
5     CalcString: string;
6   begin
7     DecodeDate(Date, byear, bmonth, bday);
8     byear := byear - Age;
9     if (100 * month + day) < (100 * bmonth + bday) then
10      byear := byear - 1;
11    CalcString := Copy(IntToStr(BMonth), 1, 2) + '/';
12    CalcString := CalcString + Copy(IntToStr(BDay), 1, 2) + '/';
13    CalcString := CalcString + Copy(IntToStr(BYear), 1, 4);
14    Result := StrToDate(CalcString);
15  end;