1: 2: 3: 4: 5: 6: 7: 8:
var anos, meses: inteiro; começar anos: = YearsBetween (Date1.Date, Date2.Date); meses: = MonthsBetween (Date1.Date, Date2.Date) - anos * 12; showmessage (inttostr (anos)); showmessage (inttostr (meses)); extremidade;