Encontrar aniversarios

[marcoszorrilla]

Algo parecido hago yo:

Código Delphi [-]
procedure TfrAniversarios.FormActivate(Sender: TObject);
begin
DecodeDate(Date,aa,mm,dd);
DmClientes.IBDtsCli.Close;
DmClientes.IBDtsCli.SelectSQL.Clear;
DmClientes.IBDtsCli.SelectSQL.Add('Select * From Alumnos ');
DmClientes.IBDtsCli.SelectSQL.Add('Where Baja=''N''');
DmClientes.IBDtsCli.SelectSQL.Add('And Extract(Month from Fnacimiento)= :M');
DmClientes.IBDtsCli.SelectSQL.Add('And Extract(Day from Fnacimiento)  =  ');
DmClientes.IBDtsCli.ParamByName('M').AsString:=FormatFloat('00',mm);
DmClientes.IBDtsCli.ParamByName('D').AsString:=FormatFloat('00',dd);

DmClientes.IBDtsCli.Open;

end;

Un Saludo