[poli-smen]

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

Немного не то...
Должно быть: WHERE текущая дата -(минус) 'дата' > 30

А так?:

Код:

  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT * FROM aaa WHERE :dat > [Дата]';
  ADOQuery1.Parameters.ParamByName('dat').Value := Date - 30;
  ADOQuery1.Open;