[Resolvido] Exibir data por extenso

[paulojorge3l 0]

Salve galera estou com uma duvida sobre data achei algumas coisa na net mais somente sobre PHP e ASP nadinha é o seguinte tenho um campo no banco de dados Access que registra a data de cadastrado de texto no site o campo é automatico e está com o valor padrão (agora) que fica assim 5/11/2007 15:44:39 eu gostaria de exibir ele na página da seguinte forma: 05 de Novembro de 2007 às 15:44:39 alguém tem uma dica de como formatar a data assim... Obrigado a todos

[quintelab 91]

Ta ae

 

Dim Tempo, Mes
Tempo = "5/11/2007 15:44:39"

Select Case Month(Tempo)  
  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  


Response.Write(Day(Tempo)&" de "&mes&" de "&Year(Tempo)& " às "&Hour(Tempo)&":"&Minute(Tempo)&":"&Second(Tempo))
%>

[Ted k' 126]

Olha aqui Paulo

 

http://forum.imasters.com.br/index.php?showtopic=247172

[paulojorge3l 0]

Valew pessoal vou testar eu tinha vistoo Codigo do Ted K' mas não sabia como pegar do banco de dados para transformar vou testar e coloco aqui depois valeu pela ajuda

[paulojorge3l 0]

Ae Quintelab e Ted K' ficou show de bola deu certinho como vocês passaram valew mesmo http://forum.imasters.com.br/public/style_emoticons/default/clap.gif ;) segue abaixo como vou usar..... valew abraços

 

<%

 set rs = server.createobject("adodb.recordset")

 sql = "select top 2 * from noticia order by idn asc"

 rs.open sql,conn

%>
  

<%

 do while not rs.eof and contador < rs.pagesize

Dim Tempo, Mes
Tempo = ""&rs("data")&""

Select Case Month(Tempo)  
  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  


Response.Write(Day(Tempo)&" de "&mes&" de "&Year(Tempo)& " às "&Hour(Tempo)&":"&Minute(Tempo)&":"&Second(Tempo))
%>

<%

 contador = contador +1

 rs.movenext

 loop

%>

<% disconnect %>