Разное
Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>
    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.



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



Вопросы
  Получение списка всех сетевых дисков из Delphi
   Категория: Интернет и Сети
  Изменить пароль для Paradox
   Категория: Базы данных
  Определение размера каталога
   Категория: Файловая система
  Фреймы
   Категория: Компоненты
  Округление времени до 5 мин
   Категория: Базы данных
  К-во рабочих дней в месяце
   Категория: Математика
  Последний день месяца
   Категория: Базы данных
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки
  Сохраняем Bitmap в поле dbase
   Категория: Базы данных

Delphi - Справочник: IsLeapYear

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 IsLeapYear
function IsLeapYear ( const Year : Word ) : Boolean;
Функция (Unit SysUtils)
Возвращает True, если данный календарный год високосный
Описание:
Функция IsLeapYear возвращает True, если данное календарное значение является високосным годом.

Год может иметь значение 0.. 9999
Пример кода: 2000 год был високосным? 

begin
  if IsLeapYear(2000)
  then ShowMessage('2000 был високосным годом')
  else ShowMessage('2000 не был високосным годом');
end;

Результат:
2000 был високосным годом

  << Вернуться