Problema com data

flneves · Junho 1, 2011

Pessoal,

Seguinte coloquei no bd um campo que se chama mesano onde quero salvar a data que o formulário foi preenchido, fiz a configuração ensinada mmmmyyyy e realmente está salvando junho2011, porém quando incluo no combobox que vai mostrar a produção no mes e ano tal.... aparece a data completa... tipo 01/06/2011...

Não quero que apareça isso e sim junho2011 como foi salvo no bd!!!!

Como devo fazer?

Segue abaixo código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="../../Connections/Conex_xx.asp" -->
<%
Dim afiliacoes
Dim afiliacoes_cmd
Dim afiliacoes_numRows

Set afiliacoes_cmd = Server.CreateObject ("ADODB.Command")
afiliacoes_cmd.ActiveConnection = MM_Conex_xx_STRING
afiliacoes_cmd.CommandText = "SELECT * FROM Afiliações" 
afiliacoes_cmd.Prepared = true

Set afiliacoes = afiliacoes_cmd.Execute
afiliacoes_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">


<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>xxx</title>
<link href="../../css/modelagem.css" rel="stylesheet" type="text/css" />
</head>

<body>	
<div id="top">
 <h1> </h1>
 <table width="1010" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td width="234"><a href="../aadmin.asp"><img src="../../imagens/logo-xx.png" alt="xx Consultoria e Serviços" width="225" height="76" border="0" /></a></td>
     <td width="784" align="right" valign="bottom"><h1><a href="<%= MM_Logout %>" class="classe2">Sair</a> | Bem vindo, !</h1></td>
   </tr>
 </table>
</div>
<div id="barra_adm"><a href="cadastro_propostas.asp"><img src="../../imagens/cadastro_proposta.png" alt="Cadastrar nova afiliação" width="200" height="40" border="0" /></a><a href="alteracao_domicilio.asp"><img src="../../imagens/alteracao_de_domicilio.png" alt="Alteração de domicílio bancário" width="219" height="40" border="0" /></a><img src="../../imagens/relatorio_mensal.png" alt="Relatório Mensal" width="246" height="40" border="0" /><a href="relatorio_afiliacoes_agencia.asp"><img src="../../imagens/relatorio_de_afiliacoes_por_agencia.png" alt="Relatório de afiliações por agência" width="355" height="40" border="0" /></a></div>
<div id="outros_adm">
 <table width="1020" border="0" align="center" cellpadding="0" cellspacing="0">
   <tr>
     <td width="805"><h2>   <img src="../../imagens/consulta_proposta.png" width="16" height="16" /> Relatório Mensal por afiliador</h2></td>
     <td width="215"><form id="consulta_proposta" name="consulta_proposta" method="get" action="busca_proposta.asp">
     <script>function v1 (){var cnpj = document.consulta_proposta.cnpj.value;if(cnpj == 'Digite CNPJ'){document.consulta_proposta.cnpj.value = '';}if(cnpj == ''){document.consulta_proposta.cnpj.value = 'Digite CNPJ';}}</script>
       <h1>Localizar: 

           <input name="cnpj" type="text" class="combos" id="cnpj" value="Digite CNPJ" onFocus="return v1()" onBlur="return v1()"/>
                              <label>
           <input name="button" type="submit" class="combos" id="button" value="Buscar" />
         </label>
       </h1>
     </form></td>
   </tr>
 </table>
</div>
<div id="lista_propostas"><br />
 <form id="relatorio" name="relatorio" method="post" action="">
   <table width="264" border="0" align="center" cellpadding="0" cellspacing="0">
     <tr>
       <td width="92" height="38"><h1>Escolha o mês:</h1></td>
       <td width="172"><select name="Mês" class="combos" id="Mês">
         <%
While (NOT afiliacoes.EOF)
%>
         <option value="<%=(afiliacoes.Fields.Item("mesano").Value)%>"><%=(afiliacoes.Fields.Item("mesano").Value)%></option>
         <%
 afiliacoes.MoveNext()
Wend
If (afiliacoes.CursorType > 0) Then
 afiliacoes.MoveFirst
Else
 afiliacoes.Requery
End If
%>

       </select>
       <input name="button2" type="submit" class="combos" id="button2" value="Ok" /></td>
     </tr>
   </table>
 </form>
 <br />
</div>
<div id="end">
 <table width="1020" border="0" cellspacing="0" cellpadding="0">
   <tr>
     <td width="110"><a href="../../index.asp"><img src="../../imagens/logo-xx-pequena.png" alt="xx Consultoria e Serviços" width="110" height="29" border="0" /></a></td>
     <td width="910"><h1>xx - Área Administrativa e funcional<a href="../../fale_conosco.asp"></a><br />
     Todos os diretos reservados xx ® 2010 </h1></td>
   </tr>
 </table>
</div>
</body>
</html>
<%
afiliacoes.Close()
Set afiliacoes = Nothing
%>

Não sei mais o que fazer....

Sou iniciante, estudante de asp e php e curioso acima de tudo!

Olha o exemplo aqui

Mário Monteiro · Junho 1, 2011

utilize a função month para extrair o mes da data e depois monthname para extrair o nome do mes e monte como quer exibir

flneves · Junho 1, 2011

utilize a função month para extrair o mes da data e depois monthname para extrair o nome do mes e monte como quer exibir

Ae grande Mário, salvador da pátria..

Como uso a função month no combo, pois ele pega do bd?

Mário Monteiro · Junho 1, 2011

Como uso a função month no combo, pois ele pega do bd?

chama normal, a parte de asp será executada antes então no combo deve ir o valor já formatado

como tentou fazer?

xanburzum · Junho 1, 2011

usa uma função para formatar antes os dados

session.lcid=1046
function formatadata(data)
dia=day(data)
mes =month(data)
ano=year(data)
formatadata=dia&"/"&mes&"/"&ano
end function

flneves · Junho 2, 2011

Ae pessoal,

TO usando assim:

<%
mes = month(afiliacoes("mesano"))
ano = year(afiliacoes("mesano"))
data = ""&mes&"/"&ano&""
%>
<option value="<%=data%>"><%=data%></option>

Porém ta pegando a data em numeral quero em extenso tipo: janeiro 2011 e não 01/2011

Além disso nao quero que repita os meses ....

0cool · Junho 2, 2011

<%
mesano = "02/06/2011"
mes    = MonthName(month(mesano))
ano    = year(mesano)
data   = mes & "/" & ano

response.write data
%>

Para não da problema e aparecer names em ingles... utilize

session.lcid=1046

Nom começo do teu code.

xanburzum · Junho 2, 2011

usa esta função

<%
Function ExibeData(data)
 dia_semana = WeekDay(data)
 Select Case dia_semana
 Case 1 : dia_semana = "Domingo"
 Case 2 : dia_semana = "Segunda-Feira"
 Case 3 : dia_semana = "Terça-Feira"
 Case 4 : dia_semana = "Quarta-Feira"
 Case 5 : dia_semana = "Quinta-Feira"
 Case 6 : dia_semana = "Sexta-Feira"
 Case 7 : dia_semana = "Sábado"
 End Select
 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 = dia_semana & ", " & Day(Date()) & " de " & mes & " de " & Year(data)
End Function

' Exemplo
Response.Write(ExibeData(now()))
%>

0cool · Junho 2, 2011

função para name do mes? kkkkkk o asp já possui uma função nativa... o MonthName portanto não é necessário criar uma function com 28 linhas ja que da para utilizar uma que usa apenas uma linha.

Arquivado

Problema com data

Recommended Posts

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

0cool 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

0cool 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante