[Heneken]

Сообщение от АНЯ17

Код:

var
Date1 : TDateTime; // Date from ...
Date2 : TDateTime; // Date to ...
days: longint;
begin
Date1 := DateTimePicker1.DateTime;
Date2 := DateTimePicker2.DateTime;
days:=Trunc(Date2-date1);
//showmessage(inttostr(days)+' days');
//showmessage(inttostr(days div 12)+' months');
//showmessage(inttostr(days div 365)+' years');
  Label1.Caption:=(FloatToStr(days div 365));
end;

Все задачка решено, спс. за советы.

DaysBetween(Date1 , Date2 ) - вернет количество полных дней между 2 датами (тип возврата Integer)
YearsBetween(Date1 , Date2 ) - Количество полных лет между 2 датами (тип возврата Integer)
WeeksBetween(Date1 , Date2 ) - Количество полных недель между 2 датами (тип возврата Integer)