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;