1: 2: 3: 4: 5: 6: 7: 8:
var years, months : integer; begin years := YearsBetween(Date1.Date, Date2.Date); months := MonthsBetween(Date1.Date, Date2.Date) - years * 12; showmessage(inttostr(years)); showmessage(inttostr(months)); end;