Определяем номер последнего дня в месяце

Delphi , Синтаксис , Дата и Время

Автор: Ревенко Алексей

// Колическтво дней в любом месяце любого
// года можно получить с помощью EndOfAMonth

var
  YYYY, MM, DD: Word;
  D: TDateTime;
begin
  DecodeDate(Date, YYYY, MM, DD);
  D := EndOfAMonth(YYYY, {Номер месяца});
  DecodeDate(D, YYYY, MM, DD); // DD - номер последнего дня в месяце
end;

Статья Определяем номер последнего дня в месяце раздела Синтаксис Дата и Время может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Дата и Время ::