Как определить вхождение даты в интервал?

Question

[Евгений Иванов]

Есть 3 текстовых даты. Дата начала, дата конца, проверяемая дата.
Каждая дата состоит из месяца и года. Например 08.2016.
Как определить вхождение проверяемой даты, в интервал даты начала и даты конца? Включительно.
То есть Дата начала<=Проверяемая дата<=Дата конца

Comments

[Рифат]

Не совсем понятно, в чем конкретно возникла сложность. С синтаксисом написания условий в Delphi? С преобразованием даты из с строки?

[alex_ak1]

"Дата начала>=Проверяемая дата<=Дата конца" первое условие неверно, если даты верны и логично расположены, то условие всегда ложно.

[Евгений Иванов]

Альфред: alex_ak1: Нет, не с синтаксисом. С логикой.
Про strtoint или работу со строками знаю. Разделить дату на день и месяц не составит проблемы.

[Евгений Иванов]

alex_ak1: "первое условие неверно" - ну вот, логика ( Исправил.

[alex_ak1]

startd := strtodate('15/03/75');
currd := strtodate('01/01/77');
endd := strtodate('25/04/80');
if (startd <= currd) and (currd <= endd) then messagebox( 0, 'Внутри', '', 0 );

[alex_ak1]

logpol32: И сразу в догонку:
startd <= currd <= endd неверно с точки зрения логики.
К примеру после вычисления первого равенства сравниваем уже не даты:
startd <= currd ---> тип булеан, а булеан не сравним ни с чем (напрямую).
В с++ такое могло бы пройти, но все равно результат вероятнее всего будет нелогичен.

[Евгений Иванов]

alex_ak1: Это псевдокод. Можно считать математическим выражением.
В вашем коде выше присутствуют дни. Разумеется, добавить дни, не составит труда.
Но по моему не стоит производить лишние операции добавления дней, перевод в дату.
Неужели нельзя просто сравнить числа?

[alex_ak1]

logpol32: Можно пойти простым путем, взяв чужой стабильный велосипед, а можно изобрести свой велосипед - выбор ваш.
Если хочется новый свежий велосипед - переведите ваши месяц_год в "количество месяцев с чего-то там" и сравнивайте. Условие сильно проще будет, если же не переводить - сранивать 2 пары чисел это условие на штук 6 сравнений. Сравниваем годы (2 штуки), если не выяснили - сравниваем месяца. Долго и неочевидно.

[Евгений Иванов]

alex_ak1: Велосипеды )... нет всё правильно написали. Но в вашем коде меня смущают дни.
В условиях задачи дней нет. Повлияет ли это на сравнение?
И года - strtodate('25/04/20'); - это что за дата? 2020 или 1920.
Слишком много вопросов.
Я же упростил задачу до банального сравнения цифр - год, месяц.

[alex_ak1]

logpol32: Упрощение путем усложнения? :))) А так - да как вам угодно :) Можно и только с месяцами работать, разницы-то. Ну или к примеру strtodate( '01/' + edit1.text );
Или функцию написать какую самопальную.

Answer 1

[kalapanga]

Используйте DateInRange вместо сравнений.
Если понадобится добавить дни, то в языке всё уже реализовано. К начальной дате примените StartOfTheMonth, к конечной EndOfTheMonth.

Comments

[Евгений Иванов]

DateInRange нет в Delphi 7

[kalapanga]

logpol32: Ну функция DateInRange здесь чисто для красы :) Она никаких чудес не делает:

function DateInRange(ADate: TDate; AStartDate, AEndDate: TDate; AInclusive: Boolean = True): Boolean;
begin
if AInclusive then
Result := (DateOf(AStartDate) <= DateOf(ADate)) and (DateOf(ADate) <= DateOf(AEndDate))
else
Result := (DateOf(AStartDate) < DateOf(ADate)) and (DateOf(ADate) < DateOf(AEndDate));
end;

А строки Ваши по-любому надо во что-то более удобное для сравнения преобразовать. Совсем без телодвижений никак не обойтись. Всё зависит от формата входных данных - известен ли он Вам и постоянен ли он. Если формат всех трёх дат такой, как написано в вопросе, то я бы добавил в начале строки '01.' а дальше StrToDate и сравнивайте на здоровье.

Answer 2

[Евгений Иванов]

Кажется, догадался.
Надо просто преобразовать все в месяцы. И эти числа сравнить.