Nano Hash - криптовалюты, майнинг, программирование

Как я могу отфильтровать набор данных в Delphi по полю TDateTime

У меня есть набор данных, который мне нужно отфильтровать по времени. например Мне нужны записи, в которых время, содержащееся в поле TDateTime, находится между 6:00 и 18:00.

Мой набор данных содержит поле с именем time_of_day типа TDateTime. Значение, присвоенное полю, представляет собой время без даты.

Я попытался создать строку фильтра, используя как строковое представление времени (time_of_day >= '6:00 AM' and time_of_day <= '6:00 PM'), так и представление с плавающей запятой (time_of_day >= 0.25 and time_of_day < 0.75), но ни одно из них не сработало.

Мне нужно знать, как построить строку фильтра для назначения свойству TDataSet.Filter.

filter datetime delphi
02.03.2011

  • Не уверен, что это имеет отношение к вашему случаю, но вы также можете рассмотреть возможность изменения SQL, создавшего набор данных (если только вы не хотите, чтобы отброшенные записи использовались для какой-либо другой цели). 03.03.2011

Ответы:


1

Я думаю, что это может зависеть от формата короткого времени, но это работает для меня с использованием TADODataSet.

ADODataSet1.Filter := 'TimeField = 11:00:00';
ADODataSet1.Filtered := True;

Более полное решение — использовать вместо этого событие OnFilterRecord.

procedure TForm4.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
    if DataSet.FieldByName('TimeField').AsDateTime = FilterValue then
        Accept := True
    else
        Accept := False
end;

Если вам нужен интервал, он будет выглядеть так.

ADODataSet1.Filter := 'TimeField >= 10:00:00 and TimeField < 11:00:00';
ADODataSet1.Filtered := True;

ОнФильтерРекорд

procedure TForm4.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
    if (DataSet.FieldByName('DateField').AsDateTime >= FromTime) and
         (DataSet.FieldByName('DateField').AsDateTime < ToTime) then
        Accept := True
    else
        Accept := False
end;

Если вы используете нотацию AMPM, вам нужно заключить время в '.

ADODataSet1.Filter := 'TimeField >= ''10:00 AM'' and TimeField < ''11:00 AM''';
ADODataSet1.Filtered := True;

Но я бы действительно рекомендовал OnFilterRecord вместо этого, чтобы вам не пришлось беспокоиться о форматах времени.

02.03.2011
  • Для OnFilterRecord я бы предпочел Accept := <FilterTest>; вместо if..else. Хороший ответ, однако. :) Только за тщательность поставлю +1 (и на этот вопрос у меня тоже есть ответ). 02.03.2011
  • Мои выражения фильтра генерируются динамически на основе пользовательского ввода, поэтому событие OnFilterRecord нецелесообразно. Количество условий и типов операторов значительно различаются. Получив ваш ответ, я изменил свой фильтр, чтобы использовать формат ShortTime, и он работал правильно. 03.03.2011

    • 2

    TDateTime в Delphi имеет тип double, где целая часть — это количество дней с 30.12.1899, а дробная (десятичная) часть — это время.

    Время полудня (без части даты) будет указано как 0,5, что означает, что 6:00 будет 0,25 (точно, 1 день / 24 часа * 6 часов), а 18:00 будет 0,75. Таким образом, самый простой способ фильтрации:

    // 6 hours after midnight
Frac(YourTimeField.AsFloat) >= (1.0 / 24.0) * 6 and
// 18 hours after midnight
Frac(YourTimeField.AsFloat) <= (1.0 / 24.0) * 18;

    Выполнение фактического расчета гарантирует, что, если число не может быть точно представлено как 0,25 (например, 0,2499999999999), вы все равно получите правильное значение для сравнения.

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

    02.03.2011
  • Я понимаю, что это будет работать как исполняемый код, но могу ли я использовать функцию Fract в строке фильтра для набора данных? 02.03.2011
  • Нет. Вы можете использовать его в событии OnFilterRecord. Какую базу данных вы используете? Может быть, есть лучший способ, чем фильтрация. 02.03.2011
  • Я на самом деле использую kbmMemData 02.03.2011

    • 3

    Я использую не ADO, а Zeos, но рендеринг как float

      xx.filter:='datefieldname > '+floattostr(strtodatetime(edit1.text));

    работает на меня.

    07.08.2012
    Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..