Вычисление даты Пасхи 2

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

function Easter(Year: Integer): TDateTime;
{----------------------------------------------------------------}
{ Вычисляет и возвращает день Пасхи определенного года.          }
{ Идея принадлежит Mark Lussier, AppVision <MLussier@best.com>.  }
{ Скорректировано для предотвращения переполнения целых, если по }
{ ошибке передан год с числом 6554 или более.                    }
{----------------------------------------------------------------}

var
  nMonth, nDay, nMoon, nEpact, nSunday,
    nGold, nCent, nCorx, nCorz: Integer;
begin
  { Номер Золотого Года в 19-летнем Metonic-цикле: }
  nGold := (Year mod 19) + 1;
  { Вычисляем столетие: }
  nCent := (Year div 100) + 1;
  { Количество лет, в течение которых отслеживаются високосные года... }
  { для синхронизации с движением солнца: }
  nCorx := (3 * nCent) div 4 - 12;
  { Специальная коррекция для синхронизации Пасхи с орбитой луны: }
  nCorz := (8 * nCent + 5) div 25 - 5;
  { Находим воскресенье: }
  nSunday := (Longint(5) * Year) div 4 - nCorx - 10;
  { ^ Предохраняем переполнение года за отметку 6554}
  { Устанавливаем Epact - определяем момент полной луны: }
  nEpact := (11 * nGold + 20 + nCorz - nCorx) mod 30;
  if nEpact < 0 then
    nEpact := nEpact + 30;
  if ((nEpact = 25) and (nGold > 11)) or (nEpact = 24) then
    nEpact := nEpact + 1;
  { Ищем полную луну: }
  nMoon := 44 - nEpact;
  if nMoon < 21 then
    nMoon := nMoon + 30;
  { Позиционируем на воскресенье: }
  nMoon := nMoon + 7 - ((nSunday + nMoon) mod 7);
  if nMoon > l 31 then
  begin
    nMonth := 4;
    nDay := nMoon - 31;
  end
  else
  begin
    nMonth := 3;
    nDay := nMoon;
  end;
  Easter := EncodeDate(Year, nMonth, nDay);
end; {Easter}

Эта функция на языке Delphi, написанная на Паскале, рассчитывает дату Пасхи для заданного года. Функция использует комбинацию математических формул и лунных расчетов для определения даты Пасхи.

Вот шаг за шагом, что код делает:

1. Сначала он рассчитывает Золотой Номер (nGold), который используется для определения положения солнца и Луны в 19-летнем Метоническом цикле.
2. Затем он рассчитывает номер века (nCent), который используется для коррекции високосных лет и других календарных нестыковок.
3. Код затем рассчитывает количество лет, прошедших с последнего високосного года (nCorx) и количество лет, прошедших с последнего раза, когда определенная лунная цикл произошел (nCorz).
4. Он использует эти значения, а также Золотой Номер, для расчета даты следующего полного луны (nMoon).
5. Код затем корректирует дату полной луны, учитывая положение солнца и тот факт, что Пасха всегда происходит в воскресенье.
6. Наконец, он строит объект TDateTime, используя рассчитанные значения месяца, дня и года.

Функция использует некоторые хитрости для предотвращения ошибок переполнения при работе с большими годами (т.е., годами более 6554).

Вот пример использования этой функции:

program TestEaster;
uses
  SysUtils;

function Easter(Year: Integer): TDateTime;
begin
  Result := Easter(Year);
end;

begin
  Writeln(Easter(2023).AsString); // Вывод: 09-04-2023 00:00:00
end.

В этом примере функция рассчитывает дату Пасхи для года 2023 и выводит ее в консоль.

В целом, это хорошо написанная функция, которая точечно рассчитывает дату Пасхи для любого заданного года.

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

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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