[lmikle]

На стороне прилодения:

Код:

if MonthOf(ADOQuery.FieldByName('BirthDate').AsDateTime) = MonthOf(Today)  And
   DayOf(ADOQuery.FieldByName('BirthDate').AsDateTime) = DayOf(Today)Then
Begin
...
End;