Робота с датами в DBGrid - Delphi БД

[Alex_pro_0]

Есть БД dw.mdb acces в ней таблица Malozab в таблице поле t_dovidku_po в котором хранится срок действия окончания справки (пример 24.06.2018) . Нужно что бы например за 30 дней до окончания срока закрасилась строка с этой датой в желтый или красный цвет , или же вывелось какое нибудь уведомление . Я сделал что то похожее но работает оно не так как нужно . БД подключена с помощью ADOConnection и ADOQuery.

procedure TmalozabForm.sDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if ( Date - DataModule1.QMalozab.FieldByName('t_dovidku_po').AsDateTime) < 30 then
begin
  malozabForm.sDBGrid1.Canvas.Brush.Color:=clyellow;
  malozabForm.sDBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

[Heneken87]

Скажите , что именно работает не так как нужно. Я как Ванга с опытом подумал, что дата рассчитывается не верно.

try
  StrToDate(DataModule1.QMalozab.FieldByName('t_dovidku_po').AsString);
except
  Exit;
end
if (DaysBetween(Date,DataModule1.QMalozab.FieldByName('t_dovidku_po').AsDateTime)) < 30 then
begin
  malozabForm.sDBGrid1.Canvas.Brush.Color := clyellow;
  malozabForm.sDBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

P.S в Uses System.DateUtils

[Sciv]

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

Я как Ванга с опытом подумал, что дата рассчитывается не верно.

Ну вероятнее всего, как обычно в подобных случаях играют свою роль часы, минуты, секунды в AsDateTime. Проверьте через вотч, какие значения в Date и в t_dovidku_po находятся.

[Heneken87]

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

Ну вероятнее всего, как обычно в подобных случаях играют свою роль часы, минуты, секунды в AsDateTime. Проверьте через вотч, какие значения в Date и в t_dovidku_po находятся.

ТС это Вам)

[Аватар]

Знак поменяй

if ( DataModule1.QMalozab.FieldByName('t_dovidku_po').AsDateTime - Date) <= 30 then

ps DaysBetween не пройдет, ей без разницы какая дата раньше

[Alex_pro_0]

Получилось сделать так

uses ..., DateUtils;
...
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var C: TColor;
begin
 case DaysBetween(Now, DataModule1.QMalozab.FieldByName('t_dovidku_po').AsDateTime) of
  0..15 : C := clRed;
  16..30: C := clYellow;
 else C := clWhite;
 end;
 malozabForm.sDBGrid1.Canvas.Brush.Color := C;
 malozabForm.sDBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;