Проверить входит ли текущая дата в диапазон дат?

[artemavd]

Добрый вечер!
Мне нужно проверить, входил ли текущая дата в диапазон указанных дат? Загвоздка в том, что мне нужно в качестве года, подставлять текущий год. День и месяц в границах диапазона постоянны.
Вот, такое условие:

  DNow:=DateToStr(Now);
  D1:='01.01.' + DNow[7] + DNow[8] + DNow[9] + DNow[10];
  D2:='31.06.' + DNow[7] + DNow[8] + DNow[9] + DNow[10];

  if (Now >= StrToDateTime(D1)) and (Now <= StrToDateTime(D2)) then
  begin
   ShowMessage('Дата в диапозоне!');
  end;

Естественно, что это не работает, т.к. говорит, что: ''01.01.2012'' is not valid date and time.
Прошу помощи в правильном составлении условия!?

[саша40]

Ошибка сама тебе говорит, что дата не может быть временем.

[Mad_Cat]

var Dnow:string;d1,d2:string;
begin
  DNow:=DateToStr(Now);

  D1:='01.01.' + DNow[7] + DNow[8] + DNow[9] + DNow[10];
  D2:='30.6.' + DNow[7] + DNow[8] + DNow[9] + DNow[10]; // в июне 30 дней как бе
  if (Now >= StrToDate(D1)) and (Now <= StrToDate(D2)) then
  begin
   ShowMessage('Дата в диапазоне!');
  end;
end;

[artemavd]

Черт, не сообразил проверить правильность указанных дней! Mad_Cat, спасибо за указание и помощь! А зачем указывать разделитель даты? У меня ведь перед условием в качестве разделителя даты указывается точка.

[Mad_Cat]

зачем указывать разделитель даты

не хотите не надо

[Человек_Борща]

Все проще...

IsDateBetween(aDate,aDateBefore,aDateAfter:string):Boolean;
var
  d1,d2,d3:TDate;
begin
  d1:=StrToDate(aDate);
  d2:=StrToDate(aDateBefore);
  d3:=StrToDate(aDateAfter);
  Result:=((CompareDateTime(d1,d2) = 1) and (CompareDateTime(d1,d3) = -1));
end;

[Аватар]

А зачем куча стринговых функций? Не проще ли месяц и день начала и конца диапазона дат хранить в word например и проверять просто функцией

function InRange(MonBeg,DayBeg,MonEnd,DayEnd: Word): Boolean;
begin
  Result:=(EncodeDateTime(YearOf(Date),MonBeg,DayBeg)<=Date) and
          (EncodeDateTime(YearOf(Date),MonEnd,DayEnd)>=Date);
end;