Saber Data De Aniversário

[Guest Jon Pline]

Bom dia,

Eu estou com uma dúvida e gostaria de uma ajuda vocês.

Eu gostaria de mostrar um lembrete na tela do meu programa quando um cliente cadastrado fizesse aniversário, mas não consigo realizar a pesquisa apenas por dia e mês, já que no cadastro eu tenho apenas um campo com data de nascimento.

Como posso fazer isso?

Estou usando a versão 5.0 do Delphi e tabela Paradox 7.

Desde já, muito grato.

[Micheus]

Eu gostaria de mostrar um lembrete na tela do meu programa quando um cliente cadastrado fizesse aniversário, mas não consigo realizar a pesquisa apenas por dia e mês, já que no cadastro eu tenho apenas um campo com data de nascimento.

Como posso fazer isso?

Jon Pline, o exemplo abaixo mostra como listar todos "indivíduos" da tabela Pessoas onde o mês de nascimento seja igual ao passado no parâmetro mês. Veja se consegue ajustar a suas necessidades.

Query1.SQL.Clear;

Query1.SQL.Add('SELECT *');

Query1.SQL.Add('FROM Pesoas');

Query1.SQL.Add('WHERE extract(month from DAT_NASCIMENTO) = :mês');

Query1.ParamByName('mês').AsInteger := mês; // número do mês a procurar

Query1.Open;

Se interessar avaliar o dia, utilize "extract(day from ..."

OBS: Não utilize o acento "^" em mês - foi colocado automaticamente pelo editor do forum.