Определение специальных дат в Delphi: как вычислить третье воскресенье месяца

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

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

Решение проблемы

Для решения задачи можно использовать следующий подход. Сначала определим функцию, которая проверяет, относится ли текущий день к первому числу недели:

function IsFirst(const DateTime: TDateTime; const DayOfWeek: Word): Boolean;
begin
  Result := (DayOfTheWeek(DateTime) = DayOfWeek) and
            InRange(DayOfTheMonth(DateTime), 1, 7);
end;

Аналогично, можно определить функцию для второго числа недели:

function IsSecond(const DateTime: TDateTime; const DayOfWeek: Word): Boolean;
begin
  Result := (DayOfTheWeek(DateTime) = DayOfWeek) and
            InRange(DayOfTheMonth(DateTime), 8, 14);
end;

Чтобы упростить задачу, можно написать одну обобщенную функцию, которая будет определять n-ное число недели для заданного дня:

function IsNth(const DateTime: TDateTime; const DayOfWeek: Word; const N: Integer): Boolean;
var
  FirstDayOfWeek, LastDayOfWeek: Integer;
begin
  FirstDayOfWeek := (N - 1) * 7 + 1;
  LastDayOfWeek := N * 7;
  Result := (DayOfTheWeek(DateTime) = DayOfWeek) and
            InRange(DayOfTheMonth(DateTime), FirstDayOfWeek, LastDayOfWeek - 1);
end;

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

Пример вычисления третьего воскресенья месяца

Чтобы найти третье воскресенье месяца, достаточно вызвать функцию IsNth с параметрами DayOfWeek = 7 (воскресенье) и N = 3:

if IsNth(CurrentDateTime, 7, 3) then
  // Действия при условии, что сегодня третье воскресенье

Заключение

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

Создано по материалам из источника по ссылке.

Компилировать и применить обобщенную функцию Delphi, вычисляющую n-ное воскресенье месяца.

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

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

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