Hallo,
ich ermittle die nächsten anstehenden Geburtstage. (
DB =
Access)
Delphi-Quellcode:
DM.ADOEreignisGeburtstag.SQL.Add('SELECT * FROM Adressen WHERE Format(Geburtstag, "mmdd") Between Format(Date(), "mmdd") And Format(DateAdd("d", :RANGE, Date()), "mmdd") ORDER BY 1');
DM.ADOEreignisGeburtstag.Parameters.ParamValues['RANGE'] := Edit2.Text;
Das geht auch super solange wir nicht grad Dezember haben. Da bringt´s falsche Ergebnisse sobald es übers Jahr hinaus geht.
Hat jemand eine Idee;
Gruß.