YearOf
Модуль: DateUtils
function YearOf(const AValue: TDateTime): Word;
Функция возвращает год, сохраненный на дату, представленную TDateTime . Функция возвращает значение от 1 до 9999. Вот пример:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
program Foo; {$APPTYPE CONSOLE} uses SysUtils, DateUtils; begin Writeln('Дата: ', DateTimeToStr(Now)); Writeln('-----'); Writeln('Знач: ', YearOf(Date)); Readln; end. |