|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
фильтрация даты и времени
Коллеги помогите пожалуйста, запутался.
Есть данные в БД с полем 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; |
#2
|
|||
|
|||
Маньяк
Пусть 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; |