Aniversariante do Dia (da para selecionar?)

Delphi

19/10/2003

:?: 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


Wagner

Wagner

Curtidas 0

Respostas

Adilsond

Adilsond

19/10/2003

A rotina abaixo mostrará a mensagem cada vez que for posicionado em um registro cujo dia e mes sejam iguais aos da data de nascimento.

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
DiaAtual, MesAtual, AnoAtual: Word;
DiaNasc, MesNasc, AnoNasc: Word;
begin
DecodeDate(Date,AnoAtual,MesAtual,DiaAtual);
DecodeDate(Table1DataNasc.Value,AnoNasc,MesNasc,DiaNasc);
if (MesNasc = MesAtual) and
(DiaNasc = DiaAtual) then
Application.MessageBox(´Sócio aniversariante.´,´Informação´,
mb_ok+mb_iconinformation);
end;


GOSTEI 0
Wagner

Wagner

19/10/2003

Caro colega, so agora pude ver a dica enviada por voce vou usa-la agora, qualquer coisa entro em contato novamente, mais muito obrigado pela atenção


GOSTEI 0
Wagner

Wagner

19/10/2003

:D Valeu meu amigo sua dica funcionou como eu esperava, qualquer coisa estou por aqui, um abraço

wagnernormando@ig.com.br
wagnernormando@ibest.com.br
ICQ 97405126


GOSTEI 0
POSTAR