Fórum Aniversariantes do Dia #262033
15/12/2004
0
Gostaria de saber uma coisa...
Tenho uma tabela chamda clientes...que tem um campo chamado datadenascimento.
Gostaria que quando o usuario clicasse no botao ele me gerasse todas as pessoas que fazem aniversario no dia correspondente a data do S.O....
Mas nao sei como fazer isso pois a data que armazeno no campo datadenascimento é inteira e no caso precisaria pegar soh o dia e o mes neh?!
Por favor me ajudem...
Abraços...
Tremonti
Curtir tópico
+ 0Posts
15/12/2004
Emersonclubedelphi
procedure aniversariantes;
var
Pessoas: TStringList;
begin
Table1.First;
Pessoas := TStringList.Create;
While not(Table1.Eof) do
begin
if DayOfTheMonth(Table1DataNasc.AsDateTime) = DayOfTheMonth(Now) then
Pessoas.Add(Table1Nome.AsString);
Table1.Next;
end;
Memo1.Add(Pessoas.Text);
end;
declare a unit DateUtils
Espero ter te ajudado, qualquer dúvida é só perguntar... :roll:
Emerson o Pequeno :lol:
Gostei + 0
16/12/2004
Tremonti
Nao consegui assimilar bem o codgio...
Abraços
Gostei + 0
16/12/2004
Thomaz_prg
uses DateUtils; ... with adoquery do begin close; SQL.Clear; SQL.Add(´Select * from clientes where (day(datadenascimento) = :dia) and (month(datadenascimento) = :mes )´); Parameters.ParamByName(´dia´).Value := DayOf( date ); Parameters.ParamByName(´mes´).Value := MonthOf( date ); Open; end;
Gostei + 0
16/12/2004
Thomaz_prg
uses DateUtils; ... with adoquery do begin close; SQL.Clear; SQL.Add(´Select * from clientes where (day(datadenascimento) = :dia) and (month(datadenascimento) = :mes )´); Parameters.ParamByName(´dia´).Value := DayOf( date ); Parameters.ParamByName(´mes´).Value := MonthOf( date ); Open; end;
Gostei + 0
16/12/2004
Andremuller
Dica: dependendo da pergunta (na maioria das vezes) é interessante informar qual o banco, tipo de conexão (ADO, dbExpress...) e versão de delphi que tu está utilizando.
Gostei + 0
16/12/2004
Tremonti
Gostei + 0
16/12/2004
Andremuller
Gostei + 0
16/12/2004
Thomaz_prg
Gostei + 0
21/12/2004
Tremonti
Abraços...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)