Agenda

[nightmare]

Estou fazendo uma agenda telefonica onde tem a data de aniversário de algumas pessoas, gostaria de saber como faço para aparecer uma mensagem em tal hora (também cadastrado no banco) avisando que tal pessoa está fazendo aniversário hoje????

valeu desde já galera!!!

[McBlade]

Você pode fazer uma checagem quando o usuário está abrindo o sistema, tipo

select cad_codigo,cad_nome,cad_dtnasc from cadastro where extract(month from cad_dtnasc) = 05 and extract(day from cad_dtnasc) = 16

Traz os aniversariantes do dia 16 de Maio.

[nightmare]

Eu quero que toda vez que a agenda seja aberta mostre os aniversariantes 5,4,3,2,1 e 0 dias antes de seu aniversário

Tem como fazer isso????!!!!

Valeu!!!!!!!

[McBlade]

Tem sim!!! Se tiver usando um Banco de Dados InterBase ou FireBird, você pode fazer aquele mesmo select com algumas modificações, use um IBQuery pra fazer esse select:

Select cad_codigo,cad_nome,cad_dtnasc from cadastro where cad_dtnasc >= '''+FormatDateTime('mm/dd/yyyy',DateToStr(IncDay(Now,-5)))+' and cad_dtnasc <= '''+FormatDateTime('mm/dd/yyyy',Now)+''

Traz os cadastros que fazem aniversário de 5 dias atrás até hoje exemplo: de 11/05/2005 a 16/05/2005

Note que as várias aspas são por que datas tem que ter aspas simples, e no select ficaria '16/05/2005'

[nightmare]

Valeu vou testar a funcão, depois eu respondo!!!

[nightmare]

McBlade, infelizmente não funcionou a função, deu um erro de sql.

[Guest Guest]

Ae foi mal, tava faltando algumas aspas simples!

No Add(''); da sua Query coloca isso!!

'Select cad_codigo,cad_nome,cad_dtnasc from cadastro where cad_dtnasc >= '''+FormatDateTime('mm/dd/yyyy',IncDay(Now,-5))+''' and cad_dtnasc <= '''+FormatDateTime('mm/dd/yyyy',Now)+'''';

Desculpa o erro ae!!!