Определение високосного и не вискосного года в Delphi

Posted by obzor under Delphi

Как определить високосный или нет заданный год? Нужен код в Делфи.

Serge_Bliznykov

для диапазона лет от 1901 до 2099 для проверки високосности вполне достаточно использовать признак делимости на 4 (2000 год был високосный).
но, если нужно брать точную формулу, тогда я бы воспользовался такой:

{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

тема на форуме

Случайные статьи

• Рассылка. Выпуск 131
• messagedlg
• Выделить память под динамический массив
• Как в php создать массив из 5 элементов со случайными значениями?
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Составить программу, которая считывает текст с файла и выводит на екран все его предоложения у обратном порядке
• Как переписать экселевский файл, без подтверждения о сохранении с помощью delphi?
• Сортировка чисел методом Черпака?
• ХРАНЕНИЕ ИНФОРМАЦИИ
• Скроллинг страницы «Рукой»