[govorun]

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

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

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

[poli-smen]

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

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

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

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

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

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

Пример:

Код:

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

[govorun]

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

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

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

Пример:

Код:

Сделел так

Код:

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

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

[poli-smen]

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

Сделел так

Код:

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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-запросом сразу выбрать только удовлетворяющие условию записи.