О-Ля-Ля
Екатерина
Потому что отсчет в TDateTime идет от 30 декабря 1899 года. .
И когда вы даете функции DateToStr год (2013), то она считает, что это не дата, а количество дней прошедших с 30 декабря 1899 года.
2013 дней / 365 равно приблизительно 5.5 годам..
МК
Михаил Кучинов
Если нужен только год - то все гораздо проще:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('yyyy', Now));
end;
end.
Похожие вопросы