[govorun]

Имеется поле "Дата". Нужно написать в коде нечто подобное:

if 'текущая дата' -(минус) 'Дата' > 30 then

Окажите пожалуйста посильную помощь, не могу додуматься...

[poli-smen]

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

Имеется поле "Дата". Нужно написать в коде нечто подобное:

if 'текущая дата' -(минус) 'Дата' > 30 then

Окажите пожалуйста посильную помощь, не могу додуматься...

Имеется ввиду поле в таблице базы данных?

Получить текущую дату - функция Date.
Получить текущую дату и время - функция Now.

Пример:

Код:

  if Date - Int(Table1.FieldByName('Дата').AsDateTime) > 30 then

[govorun]

Сообщение от poli-smen

Имеется ввиду поле в таблице базы данных?

Получить текущую дату - функция Date.
Получить текущую дату и время - функция Now.

Пример:

Код:

  if Date - Int(Table1.FieldByName('Дата').AsDateTime) > 30 then

Сделел так

Код:

if Date - Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then

И получилось, что проверка условия выполняется только для первой строки таблицы, а нужно проверять всю таблицу.
Подскажите где подкрутить?

[poli-smen]

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

Сделел так

Код:

if Date - Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then

И получилось, что проверка условия выполняется только для первой строки таблицы, а нужно проверять всю таблицу.
Подскажите где подкрутить?

Проверка выполняется не для первой строки таблицы, а для текущей. И не строки, а записи - когда речь идёт о таблицах баз данных - говорят не о "столбцах" и "строках", а о "полях" и "записях".

Чтобы выполнить какое либо действие для всех записей таблицы, нужно по ним пройтись циклом.
Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  datamodule3.ADOTable1.First; // Становимся на первую запись таблицы
  while not datamodule3.ADOTable1.Eof do // Пока записи не закончились:
  begin
    if Date - Int(datamodule3.ADOTable1.FieldByName('Дата').AsDateTime) > 25 then
    begin
      Memo1.Lines.Add('Условие выполняется в записи №'+IntToStr(datamodule3.ADOTable1.RecNo));
    end;
    datamodule3.ADOTable1.Next; // Переходим к следующей записи таблицы
  end;
end;

p.s. Ну и конечно используя TADOQuery вместо TADOTable можно SQL-запросом сразу выбрать только удовлетворяющие условию записи.