делфи YearNow:=YearOf(SysUtils.Date); Nf:=DateToStr(YearNow) выдает 05.07.1905 хотя должен 2013 ПОЧЕМУ?

Question

Екатерина · Accepted Answer

Потому что отсчет в TDateTime идет от 30 декабря 1899 года. . 
И когда вы даете функции DateToStr год (2013), то она считает, что это не дата, а количество дней прошедших с 30 декабря 1899 года. 
 
2013 дней / 365 равно приблизительно 5.5 годам..

Михаил Кучинов · Answer

Если нужен только год - то все гораздо проще: 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 ShowMessage(FormatDateTime('yyyy', Now)); 
end; 
 
end.