Fórum Aniversariante do Dia (da para selecionar?) #189619

:?: Olá pessoal.

Tenho uma pequena duvida (pra mim e grande) e o seguinte: tenho um form que usa uma tabela socios.db (paradox) que no cadastro do socio, como nome, endereço, etc..contem a data de nascimento do socio e no form tambem tem um botão de localizar socio, o que eu queria era que quando determinado socio fosse localizado aparecia a mensagem ´Socio aniversariante´ eu uso dica abaixo so que me aparece quando o aniversariante era do dia atual como 20/10/2003 ele filtra a data do dia não a do nascimento ufá! sera se deu para entender.

procedure TSocios.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if Copy(table1datanasc.AsString, 1, 5) = Copy(DateToStr(Date), 1, 5) then
application.messagebox(´Socio aniversariante´,´Informação´,mb_ok+mb_iconinformation);


obrigado a todos