Verificar data

[l_nando 0]

Pessoal, olha eu denovo, o chato.

 

Fiz um sisteminha em asp para uma quadra de futebol, funciona que é uma beleza.

Só que agora a pessoa para quem eu fiz este sisteminha quer que eu mostre quem está fazendo aniversário por ex.:

 

No cadastro de jogadores da quadra tenho a opção de dia de aniversário, só que eu cadastro somente o dia e o mês, assim: 30/07.

 

Sei que tem como eu fazer uma verificação no campo do bd onde armazeno o aniver. do jogador, mas queria fazer o seguinte:

 

Verificar no bd a data onde fosse igual a dia/mes sem o ano da máquina, onde está o sistema.

Fazendo esta verificação, o sist. mostrará na tela quem faz aniversário neste dia, senão tiver ninguém ele vai para tela de início.

 

Só não sei como faz a verificação de data na máq. somente do dia e mês, não manjo nada de datas.

 

Pensei que estava tudo ok, mas acho que sempre aparece alguma coisa para alterar.

 

Mais uma vez obrigado.

 

Abraços.

[Public2004 79]

Vamos ver se isso te ajuda. Primeiro utilizando a função do Ted'K para formatar a data (atual e do bd):

 

Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function
dataAtual = ConverterData(Date())
dataAnive = ConverterData(seu_recordset("campo_tabela_data"))

Agora pegar somente dia e mês:

 

dataAtual = Left(dataAtual,5)
dataAnive = Left(dataAnive,5)

Depois monta a condição com estas variáveis.

 

Espero que ajude.

Abs.

[l_nando 0]

Pessoal, boa noite.

 

O que pode estar acontecendo?

 

Parte do meu cod:

 

<%
dim sq, bco, rs

Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function
dataAtual = ConverterData(Date())
[color="#FF0000"][b]dataAnive = ConverterData(rs("NASCJOG"))  -  linha 10[/b][/color]

dataAtual = Left(dataAtual,5)
dataAnive = Left(dataAnive,5)

Vdatual = dataAtual
Vdniver = dataAnive

sq = "select * from JOGADOR where NASCJOG =  #" & Vdatual & "#"

AbreConn

Set rs = bco.execute(sq)
If Vdniver = Vdatual then

 

Erro:

 

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/bolazer/anivers.asp, line 10

Obs.: Meu bd é em access e o campo NASCJOG é data/hora.

 

Abraço.

[hargon 64]

Altera a função:

Function ConverterData(ConData)
If Not isDate(ConData) Then
   ConData = "1/1/1900"
End If
ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
ConverterData = ConData
End Function

[l_nando 0]

Galera, bom dia.

 

Eu fiz o seguinte:

 

Insiro no bd somente o dia e o mês de aniversário da pessoa e usei a 1ª função passada pelo Ted'K e Puclic2004.

 

Quando faço a verificação por ex.:

 

Vejo no banco se existe uma data de anivers. igual a data atual, mostra na tela quem faz o aniver.

se for diferente mostra uma msg."NÃO EXISTEM ANIVERSARIANTES".

 

Acontece que deste jeito acima só aparece a msg.

 

se coloco ao invéz de (=) , (<>), daí mostra quem faz o niver.por ex.:

 

Cadastro alguém com data de aniv. 13/08 e na condição para verificar eu coloco:

Se o campo do BD for diferente da data atual, ele me mostra a pessoa que faz a data em 13/08 que seria hoje.Daí altero a data da máq. para ver se aparece a msg ."NÃO EXISTEM ANIVERSARIANTES", aparece aquela pg de erro dizendo que os registros não são verdadeiros ou foram excluídos.

 

O que será?

 

mais uma vez obrigado.

 

Abraços.

[Mário Monteiro 179]

como esta o seu select?

 

o campo é texto?

 

so tem isso? 13/08

[l_nando 0]

Bom dia!

 

O select:

 

sq = "select * from JOGADOR where NASCJOG = '" & dataAual & "'"

 

O campo da minha tabela deixei como texto, pois só inseri 13/08.

 

Será que dá algum problema? :unsure:

 

Abraços.