Developing.ru

&quot писал(а):Неправильно сформулированная задача, т.к. переход с Юлианского на Грирорианский календарь был значительно позже Рождества Христова, а именно 4 октября 1582 года, но в России переход на новый стиль был осуществлен еще позже.

&quot писал(а):Пример для 20.10.2009:
2009*365+2009\4-2009\100+2009\400+(31+(28+0)+31+30+31+30+31+31+30) +20
Пояснения:
'\' обратная косая черта - результат деления нацело без остатка
в скобках подсчитываем количество дней для целых месяцев по массиву количества дней в каждом месяце - для февраля берем 28 дней.
20 - день DD
(28+0) - поскольку 2009 - не високосный.

mc-black писал(а): Распределение високосных годов
* Каждый год, номер которого кратен 4 — високосный.
* Однако, каждый год кратный 100 — не високосный.
* Однако, каждый год кратный 400 все же високосный — 1600, 2000 и т.д.
Эти правила дают среднюю продолжительность года равной 365,2425

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;

&quot писал(а):Т.е. помимо вышеуказанных условий есть еще одно: каждый 4000-й год - НЕ високосный

mc-black писал(а): Насчет 4000 нигде пока не слышал. Можете указать источник информации более достоверный, чем функция в Паскале? По-моему пока этот срок не настал и до конца еще никто точно не договорился по корректировке через 4000 лет. Время же еще есть, чтобы договориться)))

А кто-нибудь знал, что в СССР где-то в 30-х годах для удобства планирования временно вводились 5-и и 6-и дневные недели?!))))) Если не верите, могу уточнить, когда именно.

erazer89, когда-то я написал небольшую программку-календарь на ассемблере MASM (MASM32 SDK), там есть отсчет количества дней с 1900 года,