Разное



Последние книги
Самое популярное
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация



Вопросы
  Удалить файл в Корзину
   Категория: Приложение
  Получить версию программы VersionInfo
   Категория: Приложение
  Округление в большую сторону
   Категория: Математика
  К-во рабочих дней в месяце
   Категория: Математика
  Как нарисовать календарь
   Категория: Текст и строки
  Как показать balloon tooltips в программе
   Категория: Приложение
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Получить типы полей таблицы
   Категория: Базы данных
  Что значит Paramstr
   Категория: Приложение

Delphi - База Знаний: Последний день месяца

  << Вернуться к Содержанию   

function LastDay(YYYY, MM: Word): Integer;
var DD: Word;
  D: TDateTime;
begin
  DecodeDate(EncodeDate(YYYY,MM,1), YYYY, MM, DD);
  D := EndOfAMonth(YYYY, MM);
  DecodeDate(D, YYYY, MM, DD);
  Result := DD;
end;
  << Вернуться к Содержанию