Checar data e conferir anivers�rios

Question

Opa galera! tranquilo? :P Minha primeira mensagem! rs... bem, sou novo nesse forum, sou novo em delphi, portanto, ignorem perguntas bestas por favor! rsrs :wink: Galera, acontece o seguinte, eu tenho ...

Edilcimar · Answer

if table1.fieldbyname(�DATAANIVERSARIO�).value = Date thenshowmessage(�HOJE TEM ANIVERSARIANTE�);...

Icarus · Answer

awn.. :shock:
sinto-me IDIOTA por ser algo t�o simples e nao pensei, eu at� exportei o valor do dia e do mes pra umas vari�veis, veja s� como fui idiota! rs...
muito obrigado pela dica!

bem, e como seria o c�digo se eu tivesse que mostrar o nome do cara e o telefone dele? ehehehe... espero nao estar sendo muito exigente!
abra�os!!! :lol:

Icarus · Answer

Opa galera! :D

Consegui resolver o problema, bem, para os amigos que tamb�m tem esse problema, abaixo vai o c�digo: :wink:

procedure TF_APLICACAO.FormCreate(Sender: TObject); var StrDia,Col1:string; Ano, Mes, Dia: word; begin if table1.fieldbyname(�email�).value = Date then showmessage(�Ol�! Hoje temos aniversariantes! Por favor, clique em OK para conhec�-los!�); DecodeDate(Now,Ano,Mes,Dia); StrDia:=IntToStr(Dia); Query.SQL.Clear; Query.SQL.Add(�Select Nome,email,Extract( day From nascimento) From agenda �); Query.SQL.Add(�Where Extract( Day From nascimento)=� + StrDia ); Query.Active:= True; Query.Next;

Qualquer duvida pessoal, s� chamar! meu email � sergiofigueras [NOSPAM] gmail.com :)

um grande abra�o a todos e obrigado pela aten��o! :wink:

Icarus · Answer

tava bom demais pra ser vero! :roll:

bem.. descobri que com o meu c�digo seleciona-se s� os que nasceram no dia X, esquecendo dos meses... :oops:

vou tentar um jeito criativo...
mas... meio caminho andado! :D

Icarus · Answer

Opa galera... to aqui, perturbando novamente...Bem, to com outro problema, eu nao sei como selecionar o mes e o dia no mesmo extract, alguem pode me ajudar?abra�os!  :)...

Thomaz_prg · Answer

Ol� amigo... primeiro, algumas observa��es:

O amigo Edilcimar colocou o seguinte:

if table1.fieldbyname(�DATAANIVERSARIO�).value = Date then
showmessage(�HOJE TEM ANIVERSARIANTE�);

Mas como seu campo DataAniversario � do tipo date, ela tamb�m armazena o ano, sendo invi�vel para mostrar a lista de aniversariantes.

Bom, existem N formas de se fazer isso, mas a mais simples � usando uma Query, que ficaria assim:

uses DateUtils


Qry.Close;
Qry.SQL.Text := �Select * From Tabela�;
Qry.SQL.Add( �Where�);
Qry.SQL.Add( �Extract(Month from DataNasc) = :Mes�); 
Qry.SQL.Add( �and Extract( Day from DataNasc ) = :Dia� );  //**
Qry.ParambyName(�Dia�).Value := DayOf(Date);  //**
Qry.ParamByName(�Mes�).Value := MonthOf(Date);  
Qry.Open;

If Qry.RecordCount > 0 then 
  showmessage(�Existem Aniversariantes�);

Note que coloquei em 2 linhas um coment�rio [b:60e630013c] //** [/b:60e630013c], pois se voc� quiser os aniversariantes, avaliando o dia/m�s deixe como est�, mas se voc� quer os aniversariantes do m�s, tire as linhas com coment�rios.
Note tamb�m a adi��o da unit DateUtils, que est� dispon�vel a partir do delphi 6 se n�o me engano. Se seu delphi for anterior a este, use a fun��o DecodeDate.

Edilcimar · Answer

� realmente esqueci do ano!...

Martins · Answer

[quote:5856442801=�thomaz_prg�]Ol� amigo... primeiro, algumas observa��es:O amigo Edilcimar colocou o seguinte:if table1.fieldbyname(�DATAANIVERSARIO�).value = Date then showmessage(�HOJE TEM ANIVERSARIANTE�);Mas como seu campo DataAniversario � do tipo date, ela tamb�m armazena o ano, sendo invi�vel para mostrar a lista de aniversariantes.Bom, existem N formas de se fazer isso, mas a mais simples � usando uma Query, que ficaria assim:[code:1:5856442801]uses DateUtilsQry.Close;Qry.SQL.Text := �Select * From Tabela�;Qry.SQL.Add( �Where�);Qry.SQL.Add( �Extract(Month from DataNasc) = :Mes�); Qry.SQL.Add( �and Extract( Day from DataNasc ) = :Dia� );  //**Qry.ParambyName(�Dia�).Value := DayOf(Date);  //**Qry.ParamByName(�Mes�).Value := MonthOf(Date);  Qry.Open;If Qry.RecordCount > 0 then   showmessage(�Existem Aniversariantes�);[/code:1:5856442801]Note que coloquei em 2 linhas um coment�rio [b:5856442801] //** [/b:5856442801], pois se voc� quiser os aniversariantes, avaliando o dia/m�s deixe como est�, mas se voc� quer os aniversariantes do m�s, tire as linhas com coment�rios.Note tamb�m a adi��o da unit DateUtils, que est� dispon�vel a partir do delphi 6 se n�o me engano. Se seu delphi for anterior a este, use a fun��o DecodeDate.[/quote:5856442801]Muito bom [b:5856442801]thomaz_prg[/b:5856442801], acredito que ele n�o v� remover as linhas onde tem coment�rio, ele poderia ao inv�s disso implementar mais ainda, podendo mostrar apenas os aniversariantes do dia ou do m�s em curso...

Icarus · Answer

Opa pessoal!  :D Muito obrigado, problema resolvido! :Dbom final de semana a todos!  :wink:...