Geburtstage in xxx Tagen anzeigen im Dezember

[ereetzer]

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ß.