Aniversário

[pfr 0]

Pessoal como faço pra listar os aniversariantes da semana apenas...ou seja que fazem aniversário apenas esta semana?

[lcs_sp 0]

tenta assim:

 

Link

[pfr 0]

Galera esse é meu código ele nao retorna erro nenhum mas também nao retorna os valores....

 

O que devo Fazer?

 

   dim semanasemana=weekday(now())semfrente=7-Cint(semana)inicio = dateadd("d",now(),Cint(-semana)) ' inicio da semanafim = dateadd("d",now(),Cint(semfrente))  ' fim da semana                Set Conexao = Server.CreateObject("ADODB.Connection")              Conexao.Open db              Set rs = server.createobject("adodb.recordset")              rs.open "Select * From cadastro WHERE aniversario > "&inicio&" AND aniversario <= "&fim&" ORDER BY day(aniversario), nome", Conexao, 1,2

[lcs_sp 0]

tah faltando aspas simples na comparação de datas....tenta ai...

[pfr 0]

Mesmo com as aspas simples ta dando a pagina em branco sem registro nenhum!!!

[lcs_sp 0]

E o seguinte: tente fazer um select com todas as datas > '01/01/1900' veja se esta retornando alguma coisa, se naum estiver e algum problema no select...., você pode tambem fazer com que exiba o select na tela para verificar se esta com algum erro....

[pfr 0]

Então eu já fiz o select assim e deu certo mas com o dateadd ai nao ta dando nao?

[namio 0]

Vamos prestar atenção à sintaxe da função dateadd! :)

 

DateAdd(interval, number, date)

 

Argumentos:

[*]interval - Requerido. String que representa o intervalo que você deseja adicionar. No seu caso, "d" = dias

[*]number - Requerido. Expressão numérica que representa a quantidade de intervalo a ser adicionada. Pode ser um valor positivo, para datas futuras; ou negativo, para datas no passado

[*]date - Requerido. Valor do tipo Variant ou literal, que representa a data na qual o intervalo vai ser adicionado.

Tenta escrever teu código assim:

 

inicio = dateadd("d",Cint(-semana),now()) ' inicio da semanafim = dateadd("d",Cint(semfrente),now())  ' fim da semana

Acho que é isso.

 

Abraço,

 

Nâmio Evangelista Cavalcante