DaysInMonth(Year, Month : Integer) : Integer
Количество дней в месяце.

Функция DaysInMonth возвращает количество дней в месяце Month года Year.

Procedure OnCreate;
Var
  D : Integer;
Begin
  D := DaysInMonth(2011, 2);
  Warning(ToStr(D)+' дней в феврале 2011 года'); // 28 дней дней в феврале 2011 года
End;

© RTIT