[aqula]

Коллеги помогите пожалуйста, запутался.
Есть данные в БД с полем dDate типа datatime.
я в адошке (adotable) пытаюсь отфильтровать по
диапозонам дат и времени..
Для этого сделал 2 вычисляемых поля Дата и время. В них я отделил время и дату из типа datatime.
Сделал 4 компонента datetimepicker (2 даты и 2 время), dbgrid...
посмотрите код может вы подскажете как это правильнее сделать.
Этот код невалидно работает. dbgrid не отрисовывает отфильтрованные данные. На него фокус переводишь или кликаешь, а он данные как бы прячет.

Код:

....
ADOTable1.Filtered:=true;
....
procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  // 2 даты и 2 времени
  if Date1.Enabled and Time1.Enabled and Date12.Enabled and Time12.Enabled then
  begin
    Accept:=(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date12.Date) and (DataSet.FieldByName('Время').AsString=TimeToStr(Time1.Time))
  end;
  // 2 даты и 1 времени
  if Date1.Enabled and Time1.Enabled and Date12.Enabled and not Time12.Enabled then
  begin
    Accept:=(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date12.Date) and (DataSet.FieldByName('Время').AsString=TimeToStr(Time1.Time))
  end;
  // 1 дата и 2 времени
  if Date1.Enabled and Time1.Enabled and not Date12.Enabled and Time12.Enabled then
  begin
    Accept:=(DataSet['dDate'] >= Int(Date1.Date)+Frac(Time1.Time)) and (DataSet['dDate'] <= Int(Date1.Date)+Frac(Time12.Time));
    //(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date1.Date) and
  end;
  // 1 дата и 1 времени
  if Date1.Enabled and Time1.Enabled and not Date12.Enabled and not Time12.Enabled then
  begin
    Accept:=(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date1.Date) and (DataSet.FieldByName('Время').AsString=TimeToStr(Time1.Time))
  end;
  // 2 даты
  if Date1.Enabled and not Time1.Enabled and Date12.Enabled and not Time12.Enabled then
  begin
    Accept:=(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date12.Date)
  end;
  // 2 времени
  if (not Date1.Enabled) and Time1.Enabled and (not Date12.Enabled) and Time12.Enabled then
  begin
    //showmessage (IntToStr(SecondOf(DataSet['dDate'])) + '   ' + Inttostr(SecondOf(DataSet['Дата'])));
    Accept := (SecondOf(DataSet['Время']) >= SecondOf(Time1.Time)) and (SecondOf(DataSet['Дата']) < SecondOf(Time12.Time))      ///////////////
  end;
  // 1 дата
  if Date1.Enabled and not Time1.Enabled and not Date12.Enabled and not Time12.Enabled then
  begin
    Accept:=(DataSet['Дата']>Date1.Date-1) and (DataSet['Дата']<=Date1.Date)
  end;
  // 1 время
  if not Date1.Enabled and Time1.Enabled and not Date12.Enabled and not Time12.Enabled then
  begin
    Accept:=(DataSet.FieldByName('Время').AsString=TimeToStr(Time1.Time));
  end;
end;

[lmikle]

Маньяк
Пусть dtp1, dtp2 - дата и время "с", dtp3, dtp4 - дата и время "по".
dtp = TDateTimePicker. Тогда:

Код:

uses DateUtils;

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
var
  DateFrom, DateTo : TDateTime;
begin
  DateFrom := DateOf(dtp1.Date) + TimeOf(dtp2.Time);
  DateTo := DateOf(dtp3.Date) + TimeOf(dtp4.Time);
  Accept := (DataSet.FieldByName('dDate').AsDateTime >= DateFrom) and (DataSet.FieldByName('dDate').AsDateTime <= DateTo);
end;