Фильтрация данных по времени суток в Delphi

Delphi , Синтаксис , Дата и Время

При работе с данными в среде Delphi иногда возникает необходимость фильтрации записей по временным интервалам. Рассмотрим, как это можно сделать, используя поле типа TDateTime.

Проблема

Вы работаете с набором данных, который содержит поле time_of_day типа TDateTime, и вам необходимо отфильтровать записи так, чтобы в результате остались только те, время в которых находится в диапазоне от 6:00 AM до 6:00 PM.

Решение

В Delphi тип TDateTime представляет собой двойное число, где целочисленная часть указывает количество дней с 30 декабря 1899 года, а дробная часть — время. Таким образом, полдень (без указания даты) будет равен 0.5, 6:00 AM — 0.25, а 6:00 PM — 0.75.

Для фильтрации можно использовать следующий код:

// Фильтрация записей, когда время после полуночи составляет 6 часов
Frac(FieldByName('time_of_day').AsFloat) >= (1.0 / 24.0) * 6
// Фильтрация записей, когда время после полуночи составляет 18 часов
AND Frac(FieldByName('time_of_day').AsFloat) <= (1.0 / 24.0) * 18;

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

Альтернативный способ

Также можно использовать событие OnFilterRecord, которое позволяет более гибко настроить фильтрацию:

procedure TForm.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
    with DataSet do
    begin
        Accept := (FieldByName('time_of_day').AsDateTime >= StrToTime('06:00 AM') and
                    FieldByName('time_of_day').AsDateTime < StrToTime('06:00 PM'));
    end;
end;

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

Примечание

Если вы используете формат времени с AM/PM, необходимо заключить время в одинарные кавычки, как показано в примере использования события OnFilterRecord.

Заключение

Фильтрация по временным интервалам в Delphi может быть выполнена различными способами, включая использование дробной части TDateTime или события OnFilterRecord. Выбор метода зависит от конкретных требований и условий вашего приложения.

Обратите внимание, что в зависимости от используемой технологии (например, ADO, kbmMemData, Zeos и т.д.) могут быть свои особенности и ограничения.

Создано по материалам из источника по ссылке.

В среде Delphi требуется выполнить фильтрацию данных по временному интервалу, используя поле типа `TDateTime`.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::