Поиск записей по дате в DBGrid и окрашивание записей

29.04.2011, 10:04. **Показов** 3401. **Ответов** 2

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

Всем привет!
очень нуждаюсь в вашей помощи.пишу программу для диплома,и столкнулся со следующей проблемой:
как сделать так, чтобы программа сравнивала даты из таблицы с текущей датой,и окрашивала в красный цвет те записи, в которых дата(число и месяц НО НЕ ГОД) были меньше на 7 дней от текущей даты?
Пожалуйста помогите!очень надо!
заранее всем спасибо)

@d0lmat · 29.04.2011, 13:16

Привет.

Используй событие грида OnDrawColumnCell.
Подключи модуль DateUtils.
Вот пример кода:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm4.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  day, month, year : word;
begin
  if Column.Field.FieldName = 'MyDateField' then begin
    DecodeDate( Column.Field.AsDateTime, year, month, day );
    if (Column.Field.AsDateTime < Now) and
      (DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 7) then
    TDBGrid(Sender).Canvas.Brush.Color := clRed;    
  end;
  TDBGrid(Sender).Canvas.FillRect(Rect);
  TDBGrid(Sender).Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,Column.Field.Text);  
end;

Вместо MyDateField подставляешь имя своего поля.
DecodeDate - процедура разбирает дату на 3 переменных год, месяц и день.
DaysBetween - функция возвращает кол-во дней между двумя датами.
EncodeDate - функция возвращает дату собранную из 3х переменных: год, месяц и день.
YearOf - возвращает год в виде цифры.

EncodeDate( YearOf(Now), month, day ) - собираем дату используя месяц и день из нашей даты, а год из текущей даты.

Поскольку в условии стоит что наша дата меньше чем текущая на 7, мы пишем двойное условие:

Delphi
1
if (Column.Field.AsDateTime < Now) and (DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 7) then

наша дата меньше текущей и разница между ними 7 дней.

Вроде бы все понятно объяснил, если что - пиши

30.04.2011, 10:15

огромное спасибо!!!!

все прекрасно работает!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 31.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 31.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 30.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

MrZeT

	Поиск записей по дате в DBGrid и окрашивание записей 29.04.2011, 10:04. Показов 3401. Ответов 2 Метки нет (Все метки) Всем привет! очень нуждаюсь в вашей помощи.пишу программу для диплома,и столкнулся со следующей проблемой: как сделать так, чтобы программа сравнивала даты из таблицы с текущей датой,и окрашивала в красный цвет те записи, в которых дата(число и месяц НО НЕ ГОД) были меньше на 7 дней от текущей даты? Пожалуйста помогите!очень надо! заранее всем спасибо)

MrZeT
	30.04.2011, 10:15
	огромное спасибо!!!!все прекрасно работает!

Поиск записей по дате в DBGrid и окрашивание записей

Решение