Data

[Mateustg]

Olá, eu tenho no meu BD o campo de niver...onde pega a data tipo assim: 01/01/1980, o que eu gostaria é de saber como posso estar fazendo o seguinte:

Quero fazer uma área de aniversariantes, onde me mostre só os aniversariantes do mês atual...então se tenho 20 ususários que fazem niver no mês 01..gostaria de estar listando eles, como posso fazer isso, puxando os dados deste campo que tenho no BD??

Vlw!

[crucifier]

se voce der uma procuradinha no forum acha hein?se não me engano ta no tópico de funcoes q ta pendurado aih

[Jony Walker]

Você vai ter q resgatar somente os valores de mês do mês atual e do banco para compará-los, assim:

Cria uma variável q vai puxar somente o mes das datas do seu recordset, aí você compara a query e tah beleza !!!

   Dim mes

   sqlBanco = " SELECT * FROM tabela "

   rsBanco = conexao.execute(sqlBanco)

   dmes = month(rsBanco("data"))

   sqlNiver = " SELECT * FROM tabela WHERE " & dmes & " LIKE " & month(now) & "

 

Fiz de cabeça, vê se rola, senão posta aí de novo

[Mateustg]

Jony Walker, do modo q você fez..no meu BD o dia, mês e ano tem q estar separados...certo!!?? ai q tá, pois é tudo junto..ele cadastra a data junta..assim dd/mm/aaaa

[kuroi]

Jony, seu codigo ta errado. e tb da pra simplificar e deixar só uma linha. faca isso:

sqlNiver = " SELECT * FROM tabela WHERE Month(dataaniversario) = " & month(now)

Mateus, pode estar tudo junto, faca assim q vai dar certo. o unico problema é o caso de sua data estar como campo string e não como data. nesse caso faca:

sqlNiver = " SELECT * FROM tabela WHERE Month(CDate(dataaniversario)) = " & month(now)

[Jony Walker]

beleza eu nem chegeui a testar, obrigado pela correção !!!

month(variável) tira o valor do mês, não precisava estar separado

[Mateustg]

eu fiz assim:

<%
Sql = "SELECT * FROM Users WHERE Month(dob) = " &month(now)
Set rsNiver = Server.CreateObject("ADODB.Recordset")
rsNiver.Open sql, conn, 3, 3
%>

<table width="100%" cellpadding="2" cellspacing="0" border="0">
<tr>  
  <td><font face="arial,helvetica" size="1"><%=rsNiver("username")%></font></td>
  <td><font face="arial,helvetica" size="1"><%=rsNiver("dob")%></font></td>
</tr>
</table>

</font>
</body>
</html>

<%
rsNiver.close
set rsNiver = nothing
conn.close
set conn = nothing
%>

Mas o resultado que me apareceu foi assim:

usuáriox 01/01/1999

e só...o restante dos usuários não apareceu e não caiu na data certa...q seria hoje, dia 18/01

o que posso fazer?

[kuroi]

faca assim:

<% do while not rsNiver.EOF %>
<tr>  
 <td><font face="arial,helvetica" size="1"><%=rsNiver("username")%></font></td>
 <td><font face="arial,helvetica" size="1"><%=rsNiver("dob")%></font></td>
</tr>
<% rsNiver.MoveNext
Loop %>

01/01/1999 deve ser a data de aniversario dele. não é isso q você quer? porque você selecionou todos q fazem aniversario nesse mes e não somente os q fazem aniversario hoje...

[Mateustg]

É verdade a data é do mês todo..ok! foi mal a manota. quanto ao restante funcionaou beleza...mas uma única pergunta...tem como eu pegar essa data e calcular a idade da pessoa..tipo..eu nasci em 02/03/1980...então gostaria de fazer o cálculo e aparecer idade = 25...tem como?

[kuroi]

sim:

DateDiff ("yyyy", rsNiver("dob"), Now)

[Mateustg]

Vlw de novo...!!! Vlw

[Mateustg]

Ahh outra coisinha...como faço se quiser mostrar quem faz niver neste mês e no dia de hoje???

[kuroi]

se você escolher todos os desses mes, todos os dias de hoje virao juntos.

se você quiser mostrar so os dias de hoje, faca:

Sql = "SELECT * FROM Users WHERE dob = " & date

[Mateustg]

Vlw

[Mateustg]

OPS! tentei colocar o cálculo para achar a idade da pessoa...fiz assim:

<% fdata = DateDiff("yyyy", rsNiver("dob"), now) %>

e para exibir colocquei assim:

Response.Write " "&fdata&" "

Porém na exibição está vindo o resultado errado, pois ele coloca assim:

se a pessoa nasceu em 18/01/1986 -> 20 anos...até aki beleza...mas no outro usuário q nasceu em 18/01/1989 ele também está colocando 20 é deveria ser 17..como faço para corrigir??

[kuroi]

você tem q refazer o calculo:

<% fdata = DateDiff("yyyy", rsNiver("dob"), now) %>

a cada movenext.

assim ele calcula pra cada pessoa q ele passar...

[Mateustg]

vlw..deu certo!