Дата

[Виктория7777]

От даты надо отнять дату, и если она будет равна сегодняшней, то вывести её при помощи фильтра.

procedure TForm1.Button3Click(Sender: TObject);
Var y,m,d: word;
begin
Document.Filtered := False;
If DecodeDate(now=DocumentDATA_REGIS.AsDateTime,y,m,d)
then Document.Filtered := True else
Filtered := True;
end;

почему-то не хочет работать...(

From Stilet: Попрошу оформлять код по кнопке #.

[OlegVE]

Здравствуйте

Сообщение от Виктория7777

...If DecodeDate(now=DocumentDATA_REGIS.AsDateTime,y,m,d)...

Для начала опишите то, что Вы хотите здесь получить. DecodeDate - процедура...
До свидания

[Stilet]

От даты надо отнять дату, и если она будет равна сегодняшней, то вывести её при помощи фильтра.

Давай подробнее задачу.

[Виктория7777]

Просто надо вывести только те товары, которые зарегистрированы сегодня, при помощи фильтрации. и всё...

[Stilet]

А-а-а

filter:='ПолеДаты='+QuotedStr(formatdateTime('yyyy-mm-dd',date));

поробуй так, я правда не знаю как СУБД твое интерпретирует дату, может так:

filter:='ПолеДаты='+QuotedStr(formatdateTime('dd.mm.yyyy',date));

Но я бы лучше запросом делал

[Виктория7777]

Не выходит. Он ошибку не показывает, просто весь процесс останавливается и всё...

[OlegVE]

1. Назовите Вашу базу данных (почитайте ещё раз сообщение от Stilet).
2. Что такое Document? ADOQuery?

[Виктория7777]

1) Access
2) мы экспортировали из Access с расширением .dbf

[OlegVE]

Сообщение от Виктория7777

1) Access
2) мы экспортировали из Access с расширением .dbf

Второе отменяет первое. Кроме того, Вы не ответили на мой второй вопрос...
Добавка
P.S. DecodeDate - процедура... и на это Вы не обратили внимание
То, что предложил Stilet отменяет использование if...

procedure TForm1.Button3Click(Sender: TObject);
begin
Document.Filtered := False;
filter:='ПолеДаты=#'+formatdateTime('dd.mm.yyyy',date)+'#'; // Код Stilet подправленный под Access
Document.Filtered := True;
end;

[Виктория7777]

ничего не отменяет! просто создали БД в Accesse и подключили его к Delphi.
Да ADOQuery...