Сравнение дат

[DimOn4Ik]

Подскажите как через каждую минуту сравнивать дату с текущей и выводить сообщение с данными что соотв.таблице.Данные должные выводится в новой форме.
БД:Paradox

[dron-s]

а в чём собственно проблема то?

[artemavd]

Кидайте на форму компонент Timer1 и прописывайте в нем что-то типа этого:

 Label1.Caption:=DateToStr(Date);

 pFIBDataSet1.Close;
 pFIBDataSet1.SQLs.SelectSQL.Text:='select <Поле с датой> from <таблица>';
 pFIBDataSet1.Open;

 Label2.Caption:=pFIBDataSet1.FieldByName('<Поле с датой>').AsString;

 if Label1.Caption <> Label2.Caption then
 begin
  ShowMessage('блаблабла');
 end;

[dron-s]

create or alter procedure GEN_EXCEPTION (
    MSG varchar(100))
as
begin
  update RDB$EXCEPTIONS
  SET rdb$message = :msg
  WHERE RDB$EXCEPTION_NAME = 'UNIVERSALEXCEPTION';
  exception UNIVERSALEXCEPTION;
end^

if :date1 <> :date2 then
  execute procedure Gen_exception ('бла-бла-бла');

[DimOn4Ik]

спасибо , вот только мне нужно форму выводить ! Где будет размещенные данные с других полей которые соотв. дате. Такое возможно?

[vovk]

простите не туда запостил, стёр.