DaysInMonth(Month: Integer; Year: Integer): Integer;
Month. Номер месяца в указанном году;
Year. Год.
Метод DaysInMonth возвращает количество дней в указанном месяце указанного года.
В случае указания некорректных данных генерируется исключительная ситуация.
Sub UserProc;
Var
i, i1: Integer;
Begin
i := DateTime.DaysInMonth(1, 2003);
i1 := DateTime.DaysInMonth(2, 2008);
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться значение «31» - количество дней в январе 2003 г., в переменной «i1» - «29» количество дней в феврале 2008 г.
См. также: