Datatimepicker - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Как отнять datetimepicker1 от datetimepicker2 и вывести в label, но чтоб выводило только год.

Решение задачи: «Datatimepicker»

textual
Листинг программы
procedure TForm1.Button1Click(Sender: TObject);
var d1,d2:TDateTime;
    y:Integer;
    Year1, Month1, Day1, Year2, Month2, Day2: Word;
begin
d1:=DateTimePicker1.Date;
d2:=DateTimePicker2.Date;
Decodedate(d1,Year1, Month1, Day1 );
Decodedate(d2,Year2, Month2, Day2 );
y:=abs(Year2-Year1);
if (Month2<Month1)or((Month2=Month1)and(Day2>Day1))then dec(y);
Label1.Caption:=inttostr(y);
end;

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы