funcionario do mês

[hunger 0]

Opa.... eu de novo!Como estou fazendo um sistema pra cadastro de funcionarios, terá depois uma página que exibirá o(s) funcionário(s) do mês.Qual a melhor maneira pra fazer com que isso funcione automaticamente? digo, a página de aniversariantes procurar no bd e já puxar os funcionarios q nasceram naquele mês?Minha dúvida se estende até a página de cadastro do funcionario, pois nao sei como eu deveria então tratar o campo com a data de aniversario... deveria ter um campo la no bd apenas pro mes?!agradeço qquer sugestão, enquanto vou queimando mais uns neuronios por aqui!valeu... :D marcos hunger.

[Mário Monteiro 179]

não cara, apenas armazena a data de nascimento e depois busca no bd usando um SELECT que resolva seu problema

[hunger 0]

pq ae o interessante seria q na pagina onde exibisse os aniversariantes, ele listasse pelo dia do nasc. ne... pra ficar melhor de visualizar....e tp, como eu faço para que o sistema reconheça, q está no determinado mes (digo, se abrir a pagina hj ele liste os aniversariantes de novembro, mas se abrir mes q vem ele mostre os de dez.), automaticamente?

[hunger 0]

qual é mesmo aquele comando onde ele faz um list já com todos os meses, e tbem os dias (de 1 a 31), e aquele lance de mandar ele exibir o ano (de x a y)?

[Mário Monteiro 179]

Este Select pega os niver do mes"SELECT Nascimento, Nome FROM TABELA WHERE MONTH(Nascimento) = " & MONTH(NOW()) & " AND YEAR(Nascimento) = " & YEAR(NOW())

[hunger 0]

legal... bom, ta ligado q nao manjo nada ne, vou ver o q faço com essa linha q você mandou.... como coloco no codigo etc. valeu!!!na verdade nao precisaria pegar a parte do ano ne, só do mes.... nao é?!

[Mário Monteiro 179]

isso mesmo, foi mal, só o mes mesmo

[hunger 0]

beleza.... vou ver aqui como fazer, ae qdo estiver pronto e se tiver algum probleminha (mto provavel...rs) eu aviso!!valeu!

[Mário Monteiro 179]

Ok então...

[DackAle 0]

usando o datediff, da pra pegar as datas dentro de um espaço por exemplo, todos os aniversarios dentro da semana por exemplo... mas se você não tem muito conhecimento ASP fica dificil...rsMas é facil fazer esses selects e mostrar =)

[cmachado 0]

<%

Session.LCID = 1046

 

'Tratando mês e dia da semana

Function ExibeData(data)

mes = Month(data)

Select Case mes

Case 1 : mes = "Janeiro"

Case 2 : mes = "Fevereiro"

Case 3 : mes = "Março"

Case 4 : mes = "Abril"

Case 5 : mes = "Maio"

Case 6 : mes = "Junho"

Case 7 : mes = "Julho"

Case 8 : mes = "Agosto"

Case 9 : mes = "Setembro"

Case 10 : mes = "Outubro"

Case 11 : mes = "Novembro"

Case 12 : mes = "Dezembro"

End Select

ExibeData = mes

End Function

 

data_hoje = date() ' Aqui pega a data do dia atual = 07/05/06

mes = right((left((data_hoje),5)),2) ' Aqui pega os valores do mes = 05

 

'Pegando valores do seu banco e fazendo a consulta.

set strCon = Server.CreateObject("ADODB.Connection")

strCon.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\intranet\db\\Intranet.mdb"

strCon.open

 

'strCon = "DBQ=c:caminho_rededata.mdb;Driver={Microsoft Access Driver (*.mdb)};"

 

 

Set objRSm = Server.CreateObject("ADODB.Recordset")

objRSm.CursorLocation = 3

objRSm.CursorType = 0

objRSm.LockType = 1

 

'Consulta no banco de dados

strSQL = "Select * from Aniversariantes WHERE right((left((data_nascimento),5)),2) = '" & mes & "' order by data_nascimento DESC"

 

objRSm.Open strSQL, strCon

%>

 

<table border="0" cellpadding="0" cellspacing="0">

<tr>

<td ><div align="center"><strong><font size="2">

<%Response.Write(ExibeData(now()))%>

</font></strong> </div></td>

</tr>

<%

If not objRSm.EOF then

objRSm.MoveFirst

While Not objRSm.EOF

%>

<tr>

<% ' tratando valores para exibição das datas %>

<td><div align="center"><a href="mailto:<%=objRSm("email")%>" title="Mande sua mensagem!"><font size="2"><%=Left(objRSm("nome"),27)%></font></a><font size="2"> - <%=Replace(Left(objRSm("data_nascimento"),4),"/", "/")%></font></div></td>

</tr>

<%

objRSm.MoveNext

Wend

Else

%>

<span class="style3">Mês sem aniversariantes.</span>

<%

End If

'**** Fim exibindo datas de aniversários ****

%>

</table>

<%objRSm.close%>

[Ted k' 126]

5 anos mais tarde...

[Mário Monteiro 179]

cmachado

 

Sei que a intenção foi boa mas este topico é de 2004

 

Se deseja realmente ajudar o forúm responda em topicos recentes onde os usuarios ainda precisam da resposta

[pedrovisk 1]

Parabéns!

Muito massa!