[АНЯ17]

Здравствуйте, хотела уточнит дата рож у меня получается, но с хвостиком ст. рис.1
В поле edit1.text 17,275 а мне надо целое 17 ??? в edit2.text или в любому поле. Значение 1,2 с еdit1.text надо скопировать в edit2.text ???

Код:

var
    day1, day2 : TDateTime;
    diff : Double;
begin
 	day1 :=DateTimePicker1.Date;
  	day2 :=DateTimePicker2.Date;
 	diff := day2 - day1;
   	edit1.Text:=(FloatToStr(diff));
  	edit1.Text := floattostr(strtofloat(edit1.Text) /30/12 );
end;

за. ран.спс.

[M.A.D.M.A.N.]

Чето в последнее время азеров не знающих русский язык набигает.

Есть ф-я Floor.

[NumLock]

Функция YearsBetween в модуле DateUtils

[АНЯ17]

Если вам что то не понятно, можете не ответить!!!

[АНЯ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;

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

[Страдалецъ]

А как насчет високосных дат? А ведь они раз в 4 года случаются.

[M.A.D.M.A.N.]

Жи есть

[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)