Фильтрация с даты по дату

[Jakyll]

Добрый день!
Подскажите пожалуйста в чем моя ошибка.
Процедура должна фильтровать данные за период от дата1 по дата2, но
выводит данные только если дата1 = дата2, при условие что в БД есть записи за это дату.Второй день уже бьюсь над проблемой.
Работаю в Delphi XE5, СУБД FireBird 2.5.

procedure TMainForm.Button1Click(Sender: TObject);
var
  dt1, dt2: TDateTime;
begin
  with IBQuery1 do
  begin
    IBQuery1.SQL.Clear;
    IBQuery1.Close;
    IBQuery1.SQL.Add
      ('Select * from profit WHERE n_date BETWEEN :date1 and :date2');
    dt1 := Trunc(DateTimePicker1.Date);
    dt2 := Trunc(DateTimePicker2.Date);
    IBQuery1.Params.ParamByName('date1').AsDate := dt1;
    IBQuery1.Params.ParamByName('date2').AsDate := dt2;
    IBQuery1.Open;
  end;
end;

[Аватар]

а время есть в n_date? Если есть, то dt2 на единичку увеличь

[Jakyll]

нет, только дата.

[Аватар]

По коду все Ok. Не понятно зачем with IBQuery1, но это не критично

[Jakyll]

Вот и я в тупике

[Jakyll]

Наглядная демонстрация, может так кому-то понятней будет.

[Serge_Bliznykov]

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

Наглядная демонстрация, может так кому-то понятней будет.
Изображения

покажите, пожалуйста, структуру таблицы profit (с типами полей)

есть подозрение, что у Вас тип поля n_date не является полем с типом date/datetime.

[Jakyll]

Вот, стоит тип Date.

[Serge_Bliznykov]

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

Вот, стоит тип Date.

да, реально не вижу косяков.

значит, придётся танцевать с бубном...

попробуйте
1)

var
  dt1, dt2: TDateTime;
begin
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add
      ('Select * from profit WHERE n_date BETWEEN :date1 and :date2');
    IBQuery1.Prepare;
    dt1 := Trunc(DateTimePicker1.Date);
    dt2 := Trunc(DateTimePicker2.Date);
    IBQuery1.ParamByName('date1').AsDate := dt1;
    IBQuery1.ParamByName('date2').AsDate := dt2;
    IBQuery1.Open;
end;

2)

var
  dt1, dt2: TDateTime;
begin
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add
      ('Select * from profit WHERE n_date >= :date1 and n_date <= :date2');
    IBQuery1.Prepare;
    dt1 := Trunc(DateTimePicker1.Date);
    dt2 := Trunc(DateTimePicker2.Date);
    IBQuery1.ParamByName('date1').AsDate := dt1;
    IBQuery1.ParamByName('date2').AsDate := dt2;
    IBQuery1.Open;
end;

результат?

[Sciv]

Стесняюсь спросить: а какой диалект у БД?

А то я тут у ембаркадеров нашёл интересное описание: http://docwiki.embarcadero.com/Inter...AMP_Data_Types

Ну ещё варианты кода:

    IBQuery1.ParamByName('date1').Value:= dt1;
    IBQuery1.ParamByName('date2').Value:= dt2;

либо

    IBQuery1.ParamByName('date1').AsDate := DateTimePicker1.Date;
    IBQuery1.ParamByName('date2').AsDate := DateTimePicker2.Date;