AdoQuery.Filter с датами

Question

Итак, у меня есть запрос: "Select * FROM Payments WHERE Day([PayDate])=Day(Date()) AND Month([PayDate])=Month(Date())"

и мне было интересно, как я могу это сделать в ADOQuery.Filter СВОЙСТВ в ADOQuery.

Я знаю, что вы можете использовать «Ands», чтобы поставить несколько условий, но я не получаю Month(Date()) и Day(Date()). Я использую базу данных доступа кстати.

Answer 1

ADOQuery.Filter не совпадает с предложением SQL "WHERE".

Вам необходимо рассчитать функции в SQL перед их использованием.

Попробуйте сделать так:

ADOQuery.SQL.Text := 'SELECT *, Day([PayDate]) AS d, Month([PayDate]) AS m FROM Payments'; 

И затем использовать "D" и "M" поля в ADOQuery.Filter

uses DateUtils; 

procedure FilterQuery; 
var 
    D: TDateTime; 
begin 
    D := Now; 

    ADOQuery.Filtered := False; 
    ADOQuery.Filter := Format('d = %u AND m = %u', [DayOf(D), MonthOf(D)]); 
    ADOQuery.Filtered := True; 
end;