YearOf(X : DateTime) : Integer
Год даты

Функция YearOf возвращает год из X.

Пример:

Procedure OnCreate;
Var
  X : DateTime;
Begin
  X := EncodeDate(2011, 2, 23); // 23 февраля 2011 года
  Warning(ToStr(YearOf(X))+'-й год'); // 2011-й год
End;

Смотри функции MonthOf, DayOf, HourOf, MinuteOf, SecondOf, MilliSecondOf.

© RTIT