Как определить, попадает ли строка с датой в диапазон, заданный строкой в Delphi и Pascal

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

Как проверить, попадает ли дата в заданный диапазон?

Работая с датами в программировании, особенно в средах, таких как Delphi и Pascal, иногда возникает необходимость проверить, попадает ли определенная дата в заданный диапазон. В данной статье мы рассмотрим, как можно решить эту задачу, используя встроенные возможности языка Object Pascal.

Задача

У нас есть две строки: одна содержит дату, а другая — диапазон дат, представленный в виде двух дат, разделенных дефисом. Нам нужно определить, находится ли дата из первой строки внутри заданного диапазона.

Пример

Допустим, у нас есть следующие строки:

• dateString := '05.04.2002';
• dateRangeString := '23.01.2002 - 23.06.2002';

Нам нужно выяснить, попадает ли дата 05.04.2002 в диапазон между 23.01.2002 и 23.06.2002.

Решение

Для решения этой задачи можно использовать встроенные функции и типы данных языка Object Pascal. Вот шаги, которые помогут вам выполнить задачу:

1. Преобразуйте строки с датами в объекты типа TDateTime с помощью функции StrToDate.
2. Сравните полученные значения TDateTime для определения, находится ли дата внутри диапазона.

var
  dateString, dateRangeString, startDate, endDate, date: TDateTime;
begin
  dateString := '05.04.2002';
  dateRangeString := '23.01.2002 - 23.06.2002';

  date := StrToDate(dateString);
  startDate := StrToDate(LeftStr(dateRangeString, 10)); // Преобразуем формат даты в строке диапазона
  SetLength(startDate, Length(startDate) + 4); // Добавляем год, так как в строке диапазона он указан после дефиса
  endDate := StrToDate(RightStr(dateRangeString, 10)); // Аналогично преобразуем вторую дату диапазона
  SetLength(endDate, Length(endDate) + 4);

  if (startDate <= date) and (date <= endDate) then
    ShowMessage('Дата в диапазоне!');
end;

Подсказка

В языке Object Pascal переменная типа TDateTime фактически представляет собой переменную типа double, что позволяет использовать стандартные операции сравнения для определения порядка между двумя значениями даты и времени, как если бы это были обычные числа.

Также, начиная с версии Delphi XE, можно использовать функцию DateInRange из модуля System.DateUtils для проверки включения одной даты в диапазон между двумя другими датами. Пример использования этой функции приведен ниже:

var
  dStart, dEnd, d2Test: TDateTime;
begin
  dStart := StrToDate('25.07.2012');
  dEnd   := StrToDate('29.07.2012');

  d2Test := StrToDate('26.07.2012');

  if DateInRange(d2Test, dStart, dEnd) then
    ShowMessage('Дата в диапазоне!');
end;

Альтернативный метод

Если даты представлены в формате YYYY-MM-DD, то их можно сравнивать напрямую, без преобразования в TDateTime. Например:

var
  R1, R2, D: string;
begin
  R1 := '2012-01-01';
  R2 := '2012-01-31';
  D := '2012-01-15';

  if (D >= R1) and (D <= R2) then
    ShowMessage('Дата в диапазоне!');
end;

Используя эти методы, вы сможете легко определить, попадает ли строка с датой в заданный диапазон, представленный в виде строки в программировании на Delphi и Pascal.

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

Задача состоит в том, чтобы проверить, находится ли конкретная дата внутри заданного диапазона дат в программировании на языке Delphi и Pascal.

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

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

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