Natürlich! (Ich hatte mir deinen Post nicht genau genug durchgelesen
)
Da musst du dich an Funktionen von MS Jet halten ...
Day(IrgendeinDate) müsste dir den Tag geben Month(IrgendeinDate) den Monat:
Delphi-Quellcode:
Var
Day, Month, Year :Word;
Begin
...
With Query DO
Begin
SQL.Text :=
'
SELECT Nummer,' + #10 +
'
Vorname,' + #10 +
'
Name,' + #10 +
'
Geburtsdatum,' + #10 +
'
Tel_privat,' + #10 +
'
Mobil_privat' + #10 +
'
FROM Mandanten' + #10 +
'
WHERE Day(Geburtsdatum) = :i_Day And' + #10 +
'
Month(Geburtsdatum) = :i_Month';
Prepared := True;
DecodeDate(Now, Year, Month, Day);
Parameters.ParamByName('
i_Day').Value := Day;
Parameters.ParamByName('
i_Month').Value := Month;
Open;
...
While Not Eof
do
Begin
...
Next;
End;
End;