Проверка даты. Firebird

[artemavd]

Всем привет! Возник вопрос о проверке вхождения даты в указанный интервал дат. Ситуация такая. Есть две даты: начальная и конечная и есть четверть. Например, I четверть, 01.09.2009-04.09.2009, а II четверть на 07.09.2009-13.09.2009. Из sDateEdit-a я выбираю дату. Если я выбираю даты с 01.09.2009 по 04.09.2009, то все нормально работает. Выбранная дата находится в заданном диапозоне. А вот если я выбираю такую например даты 05.09.2009, то появляется ошибка: "Could not convert variant of type (Null) into type (String)". Вопрос вот в чем: как сделать проверку на вхождение даты в диапозон дат и чтобы если выбранная дата не входит(не соответствует) указанному диапозону, то не появлялась бы ошибка, а вместо нее, например, выводилось сообщение типа "Выбранная дата не входит в указанный диапозон I четверти. Выбранная дата соответствует II четверти". Как??

[vovk]

А можно увидеть ка ты это делаеш?
потом эта ошибка вроде указывает что невозможно конвертировать "пусто" в строку. В общем мне кажется, что ты гдето используеш DateToStr() а в качестве параметра передаёш пустое значение

[artemavd]

Вот собственно говоря код:

procedure TForm1.sDateEdit1Change(Sender: TObject);
begin
 Form1.pFIBQuery1.SQL.Clear;
 Form1.pFIBQuery1.SQL.Text:='SELECT CHETVERT,DATASTART,DATAEND FROM CHETVERTY WHERE :Mydate BETWEEN DATASTART AND DATAEND';
 Form1.pFIBQuery1.ParamByName('Mydate').Value:=Form1.sDateEdit1.Date;
 Form1.pFIBQuery1.ExecQuery;

 Form1.sWebLabel5.Caption:=Form1.pFIBQuery1.FieldByName('CHETVERT').Value;
 Form1.sWebLabel7.Caption:=DateToStr(Form1.pFIBQuery1.FieldByName('DATASTART').AsDate) + ' - ' +
                           DateToStr(Form1.pFIBQuery1.FieldByName('DATAEND').AsDate);
 Form1.sWebLabel9.Caption:=DateToStr(Form1.sDateEdit1.Date);
end;

Происходит выборка названия четверти, даты начала, даты окончания. Проверяется какая четверть входит в указанный диапозон дат. Что касается моего вопроса так нужно сделать так, чтобы если я выбрал дату, которая не относится к первой четверти (см. пост №1) и не находится между начальным и конечным значением даты, то выводилось хотя бы сообщение. Воот.

[vovk]

Может стоит просто вначале проверить входит дата или нет в диапазон и выводить сообщение если нет, а потом только выборку делать?
Но в любом случае нужно приготовится что датасет может не содержать записей, и соответственно выводить сообщение.

[artemavd]

Может стоит просто вначале проверить входит дата или нет в диапазон и выводить сообщение если нет, а потом только выборку делать?

Можно и так , Но как сделать?

Но в любом случае нужно приготовится что датасет может не содержать записей, и соответственно выводить сообщение.

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

[vovk]

Начальные и конечные диапозоны будут всегда.

это да, но может не быть записей которые должны входить в этот диапазон.

 Form1.sWebLabel5.Caption:=Form1.pFIBQuery1.FieldByName('CHETVERT').Value;
 Form1.sWebLabel7.Caption:=DateToStr(Form1.pFIBQuery1.FieldByName('DATASTART').AsDate) + ' - ' +
                           DateToStr(Form1.pFIBQuery1.FieldByName('DATAEND').AsDate);
 Form1.sWebLabel9.Caption:=DateToStr(Form1.sDateEdit1.Date);

ведь тут мы чтото требуем из записей датасета (хотя pFIBQuery и не совсем потомок датасет но чтото очень близкое, по крайней мере записи содержит), а ведь он может быть пуст, то есть не содержать записей

[artemavd]

Что ж делать то тогда?

[vovk]

Можно после запроса проверить pFIBQuery на наличие записей, если их нет (записей в смысле), то одно действие , если есть то другое, банальное if then else
у TpFIBDataSet есть функция IsEmpty которая проверяет на наличие записей, у TpFIBQuery такого нет, но есть свойство RecordCount если меньше 1 то записей ку тобиш нет

[artemavd]

if Form1.pFIBQuery1.DataSource.isEmpty then
 //showmessage('пусто');

Как то так что??

[vovk]

Сообщение от artemavd

if Form1.pFIBQuery1.DataSource.isEmpty then
 //showmessage('пусто');

Как то так что??

нет скорее

if pFIBQuery1.Recordcount < 1 then
ShowMessage('а нету записей')
else
......
......