Фильтрация по дате и времени

@shyub · Регистрация: 11.07.2013

Студворк — интернет-сервис помощи студентам

Скорее всего это продолжение темы “Условие сравнения текущей даты с датой указанной в таблице, что не так? ”.

Создана таблица так:
……………………………

C++
1
ADOQuery1->SQL->Add("CREATE TABLE  MyTab  (Узел Integer, Дата_время DateTime, "+"Измерение Float, Cостояние String (20))");

(Русские названия столбцов, чтобы было понятно в Access, но в данном случае это не принципиально.)
……………………………
Необходимо из неё “вытащить” записи cделанные после заданного времени (в принципе задача сложнее, но у меня не получается фильтрация по времени и дате):

C++
1
2
3
4
5
6
WideString W;
TDateTime T0;
//...
W="SELECT * FROM  MyTab  WHERE  Дата_время >="+T0.DateTimeString();
ADOQuery2->SQL->Add(W);
//...

Пробовал так:

C++
1
W="SELECT * FROM  MyTab  WHERE  Дата_время >="+T0;

Даже так:

C++
1
W="SELECT * FROM  MyTab  WHERE  Дата_время >= 17.12.2013 22:12:20";

При отправке запроса “ругается” – то непонятные данные, то не полные.

На форумах по Delphi нашёл, что надо заменить тип данных столбца TDateTime на String и осуществлять поиск, сравнивая строки, а не DateTime. Но тогда 18.12.2000 22:12:20 и другие даты, начинающиеся с числа выше 17 будут так же удовлетворять условиям фильтрации. Да и вообще интересно разобраться.

Подскажите, как поступить.

@helsik · 18.12.2013, 21:59

myFunction{а вот тут уже обозначте откуда берете данные, и чтоб формат был 17.12.2013 22:12:20}
запрос:
SELECT MyTab.[Дата_время] FROM MyTab WHERE (((MyTab.[Дата_время])<=myFunction()));

возможно в чем-то неправ, подправьте если что, это мое ИМХО))

Добавлено через 15 минут

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

чтоб формат был 17.12.2013 22:12:20

кажись в FormatString можно задать, чтоб не было

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

то непонятные данные, то не полные

@shyub · 18.12.2013, 22:04 **[ТС]**

Первоначально данные вводил через Edit-ы и преобразовывал в формат TDateTime. Пробовал данные брать из DateTimePicker, а затем даже:

T0=Now()-10;

Просмотрел советы с других форумов, вот что-то обещающее, но :
- второй раз без перезагрузки программы не работает.
- фильтрует только по дате, а надо и по дате и по времени.

C++
1
2
3
ADOQuery2->Parameters->ParamByName("D1")->Value =FormatDateTime("DD.MM.YYYY",DateTimePicker1->Date);
ADOQuery2->Parameters->ParamByName("D2")->Value = FormatDateTime("DD.MM.YYYY",DateTimePicker2->Date);
W="SELECT * FROM MyTab WHERE (Дата_время >= :D1 and Дата_время<= :D2)";

Вот ещё не работающий вариант:

C++
1
2
3
4
T0=Now()-10;
T1=Now();
W="SELECT * FROM MyTab WHERE Дата_время >= DateValue(" + FormatDateTime("dd/mm/yyyy hh:mm:ss",T0) +
        ") AND Дата_время <= DateValue(" + FormatDateTime("dd/mm/yyyy hh:mm:ss",T1) + ")"

Пока проблему не решил.

@helsik · 18.12.2013, 22:40

TDateTime datetime = ...;
datetime += 1.0 / 24; // сдвигаем на час вперед
datetime -= 1.0; // сдвигам на день назад
datetime += 7.0; // сдвигаем на неделю вперед
datetime = IncMonth( datetime, -1 ); // сдвигаем на месяц назад

TDateTime - по сути всего лишь число с плавающей точкой двойной точности, со всеми вытекающими последствиями. То есть , например, для того, чтобы вычислить разницу между двумя датами, достаточно вычесть одно из другого:

TDateTime datetime1 = ...;
TDateTime datetime2 = ...;
double difference = (double)( datetime2 - datetime1 );

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

Первоначально данные вводил через Edit-ы и преобразовывал в формат TDateTime

можно увидеть код?

@shyub · 18.12.2013, 23:17 **[ТС]**

Это понятно, просто чтобы не усложнять код при эксперементах я вручную изменял T0 и T1.
Проблема в том, что в таблицу дата и время заносятся в формате TDateTime, а напрямую в SQL-фильтре "WHERE" я не могу указать величину в этом формате. Если бы изменить тип столбеца с TDateTime на double, то наверняка всё заработало бы прекрасно, но тогда при выводе в DBGrid придётся "химичеть", а это будет тормозить открытие базы, да и в Access будет чёрт знает что вместо времени.

Добавлено через 8 минут
Извиняюсь, забыл. Вот отрывок из кода.
Это работает:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
//---------------------------------------------------------------------------
// Показать только записи с прикреплёнными сообщениями.
void __fastcall TForm1::Button9Click(TObject *Sender)
{
    WideString dbFile;
    WideString W;
    dbFile=ExtractFilePath(Application->ExeName)+"Data\\"+Edit1->Text+".mdb";
    ADOQuery2->SQL->Clear();
    ADOQuery2->ConnectionString=WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dbFile+
            ";Persist Security Info=False; Jet OLEDB:Database Password="+Edit2->Text+";"); // Соединение с базой данных.
    W="SELECT * FROM "+Edit3->Text+" WHERE Cостояние >\"\" ";  // Показать данные только c сообщениями.      */
    ADOQuery2->SQL->Add(W);
    try
    {
        ADOQuery2->Open();  // Выполнение команды.
    }
    catch(...)
    {
        ShowMessage("Ошибка при запросе данных");
    }
}
//---------------------------------------------------------------------------
Здесь необходимо осуществлять вывод данных от указываемого в Edit-е узла за требуемый промежуток времени.
Эта часть пока не работает.
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
    WideString W, A;
    WideString dbFile;  //
    TDateTime T0; // Определение первой составляющей даты и времени (начало).
    TDateTime T1; // Определение первой составляющей даты и времени (конец).
    if(Edit5->Text==NULL)
    {
        ShowMessage("Не указаны номер узла.");
        return;
    }
    dbFile=ExtractFilePath(Application->ExeName)+"Data\\"+Edit1->Text+".mdb";
    ADOQuery2->SQL->Clear();
    ADOQuery2->ConnectionString = WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dbFile+
            ";Persist Security Info=False; Jet OLEDB:Database Password="+Edit2->Text+";"); // Соединение с базой данных.
 
//  W="SELECT * FROM "+Edit3->Text+" WHERE [Дата_время] >=\""+T0.DateTimeString()+"\"";
//  ADOQuery2->Parameters->ParamByName("D1")->Value = FormatDateTime("DD.MM.YYYY",DateTimePicker1->Date);
//  ADOQuery2->Parameters->ParamByName("D2")->Value = FormatDateTime("DD.MM.YYYY",DateTimePicker2->Date);
//  W="SELECT * FROM "+Edit3->Text+" WHERE (Узел="+Edit5->Text+" and Дата_время >= :D1 and Дата_время<= :D2)";
// W="SELECT * FROM "+Edit3->Text+" WHERE (Узел="+Edit5->Text+" and Дата_время >="+DateTimePicker1->Date+" and Дата_время<= "+DateTimePicker2->Date+")";
 
T0=Now()-10;
T1=Now();
/*ADOQuery2->Parameters->ParamByName("StartDate")-        //->AsDateTime = T0;
ADOQuery2->Parameters->ParamByName("StartEnd")->AsDateTime = T1;
W="SELECT * FROM "+Edit3->Text+" WHERE (aDate >= :StartDate and aDate <= :EndDate)";   */
 
W="SELECT * FROM "+Edit3->Text+" WHERE Дата_время >= DateValue(" + FormatDateTime("dd/mm/yyyy hh:mm:ss",T0) +
        ") AND Дата_время <= DateValue(" + FormatDateTime("dd/mm/yyyy hh:mm:ss",T1) + ")";// ORDER BY Дата_время";
 
    ADOQuery2->SQL->Add(W);
    try
    {
        ADOQuery2->Open();  // Выполнение команды.
    }
    catch(...)
    {
        ShowMessage("Ошибка при запросе данных");
    }
//  ADOQuery2->Close();
}
//---------------------------------------------------------------------------

@helsik · 19.12.2013, 00:41

ot полученная дата с эдита где вводится от какой даты
do соответственно до какой даты вывести записи
и вроде надо юзать .DateTimeString() (он у вас закоментирован T0.DateTimeString())

ADOQuery1->SQL->Text = "select * from таблица where поледатавремя == (ot.DateTimeString() <= do.DateTimeString())";

если вас правильно понял, то по логике запрос должен быть примерно такого вида )

@Sasha · 19.12.2013, 00:49

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

==

В первые вижу такой знак в запросе

@helsik · 19.12.2013, 01:09

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

В первые вижу такой знак в запросе

да это я уже на автомате.. одно = конечно же:

C++
1
ADOQuery1->SQL->Text = "select * from таблица where поледатавремя = (ot.DateTimeString() <= do.DateTimeString())";

@shyub · 20.12.2013, 14:17 **[ТС]**

Во-первых спасибо всем, кто хотел оказать помощь в решении данного вопроса.

Задачу удалось решить следующим образом:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
    WideString W;
    WideString dbFile;  // Путь и имя файла базы данных.
    TDateTime T0; // Даты и времени начала поиска.
    TDateTime T1; // Дата и время окончания поиска.
    if(Edit5->Text==NULL)
    {
        ShowMessage("Не указаны номер узла.");
        return;
    }
    DateTimePicker1->Time=DateTimePicker2->Time; //Дата и время начала поиска.
    T0 = DateTimePicker1->DateTime-1.15741E-5; // (Минус секунда.)
    DateTimePicker3->Time=DateTimePicker4->Time; //Дата и время окончания поиска.
    T1 = DateTimePicker3->Time+1.15741E-5; // (Плюс секунда.)
    dbFile=ExtractFilePath(Application->ExeName)+"Data\\"+Edit1->Text+".mdb";
    ADOQuery2->SQL->Clear();
    ADOQuery2->ConnectionString = WideString("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+dbFile+
            ";Persist Security Info=False; Jet OLEDB:Database Password="+Edit2->Text+";"); // Соединение с базой данных.
    ADOQuery2->Parameters->AddParameter()->Name="D0";
    ADOQuery2->Parameters->AddParameter()->Name="D1";
    ADOQuery2->Parameters->ParamByName("D0")->Value = T0;
    ADOQuery2->Parameters->ParamByName("D1")->Value = T1;
    W = "SELECT * FROM " +Edit3->Text+ " WHERE (Узел = "+Edit5->Text+" and Дата_время >= :D0 and Дата_время <= :D1)";
    ADOQuery2->SQL->Add(W);
    try
    {
        ADOQuery2->Open();  // Выполнение команды.
    }
    catch(...)
    {
        ShowMessage("Ошибка при запросе данных");
    }
}
//---------------------------------------------------------------------------

Визуально в компоненте “ADOQuery2” никакие свойства задавать не надо, они создаются динамически и ADOQuery2->SQL->Clear() – их разрушает.
Ещё хотел бы сказать о компонентах DateTimePicker1-4 (1 и 2 – это дата и время начала поиска, 3 и 4 – соответственно дата и время окончания поиска). Свойство “King” у компонентов работающих с датой установлено в “dtkDate”, со временем – “dtkTime”. Свойство “Time” у компонентов работающих с датой установлено в 0:00:00, а компонентов работающих со временем у DateTimePicker2 - 0:00:01, DateTimePicker4 - 0:00:59. Далее только у DateTimePicker2 и 4 установить свойство “Format=HH:mm” и свойство “Date=0” (появится 30.12.1899).
Здесь надо отметить, что если свойства “Time” будут установлены в 0, то при установке “Date=0” будет возникать ошибка. Далее в тексте программы время начала поиска я уменьшаю чуть больше, чем на секунду (-1.15741E-5), а окончания – увеличиваю, чтобы данные записанные в интервале от 00 до 01 сек при начале поиска и от 59 до 59+0,9999…. сек) попадали в интервал поиска.
К стати, на каком-то форуме по Delphi встречал, что если задать компоненту TDateTimePicker свойство “Format=dd.MM.yyy HH:mm”, то он будет отображать дату и время. Да, отображает, но считать их не удаётся.

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	19.12.2013, 00:41
	ot полученная дата с эдита где вводится от какой даты do соответственно до какой даты вывести записи и вроде надо юзать .DateTimeString() (он у вас закоментирован T0.DateTimeString()) ADOQuery1->SQL->Text = "select * from таблица where поледатавремя == (ot.DateTimeString() <= do.DateTimeString())"; если вас правильно понял, то по логике запрос должен быть примерно такого вида ) 0