Aniversariantes do Dia.

Question

EU QUERO QUE O MEU SISTEMA ME INFORME OS ANIVERSARIANTES DO DIA, NO DIA EM QUE OUVER UM ANIVERSARIANTE...CONTO COM A COLABORA��O DE TODOS........MUITO OBRIGADO!!!!ESPERO RETRIBUIR!!!! :arrow: [color=r...

Ajmsistemas · Answer

amigo... vc ta usando algum banco de dados para isso ?olha se quiser me envie os fontes e eu te dou uma forcinha... blzz......

Jose Almeida · Answer

Este Codigo relaciona os aniversariantes do dia.

Nome da Tabela:TabNomes
Campos: Nome, Nasc (dd/mm/yyyy) :D

procedure TForm1.Button1Click(Sender: TObject);
var
StrDia,Col1:string;
Ano, Mes, Dia: word;
Aux:TDateTime;
begin
DecodeDate(Now, Ano, Mes,Dia);
StrDia:=IntToStr(Dia);
Query1.SQL.Clear;
Query1.SQL.Add(�Select Nome,Nasc,Extract( day From Nasc) From TabNomes �);
Query1.SQL.Add(�Where Extract( Day From Nasc)=� + StrDia );
Query1.SQL.Add(�Order By Nasc�);
Query1.Active:= True;
while (not (Query1.eof)) do
begin
Aux:=Query1.FieldByName(�Nasc�).AsDateTime;
DecodeDate(Aux, Ano, Mes,Dia);
Col1:=Query1.FieldByName(�Nome�).AsString;
ListBox1.Items.Add(Col1);
Query1.Next;
end;
end;

Jose Almeida · Answer

Retifica��o:procedure TForm1.Button1Click(Sender: TObject);varStrDia,Col1:string;Ano, Mes, Dia: word;beginDecodeDate(Now, Ano, Mes,Dia);StrDia:=IntToStr(Dia);Query1.SQL.Clear;Query1.SQL.Add(�Select Nome,Nasc,Extract( day From Nasc) From TabNomes �);Query1.SQL.Add(�Where Extract( Day From Nasc)=� + StrDia );Query1.SQL.Add(�Order By Nasc�);Query1.Active:= True;while  (not (Query1.eof)) dobeginCol1:=Query1.FieldByName(�Nome�).AsString;ListBox1.Items.Add(Col1);Query1.Next;end;end;...

Jose Almeida · Answer

Seleciona os aniversariantes do dia (hoje).

type
procedure AniDia;
.....

implementation

procedure TForm1.AniDia;
var
Dia,Mes:string;
AA,MM,DD: word;
begin
DecodeDate(Now,AA,MM,DD);
Dia:=IntToStr(DD);
Mes:=IntToStr(MM);
Query1.SQL.Clear;
Query1.SQL.Add(�Select*From TabNomes �);
Query1.SQL.Add(�Where Extract(Month From Nasc)=�+Mes+
�and Extract(Day From Nasc)=�+Dia);
Query1.SQL.Add(�Order By Nasc�);
Query1.Active:= True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AniDia;
end;

F�rum Aniversariantes do Dia. #163915