Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Data por extenso


wagtel

Question

Tenho o código que recebe o valor "Data":

%>

If Request.QueryString <> "" Then

apData = Request.QueryString("Data")

End If

 %>
E o código que apresenta o valor "Data"
<% Response.Write  apData %>

Como faço para apresentar este valor por estenso

De: 06/03/2012

para: terça-feira, 06 de março de 2012

Edited by wagtel
Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0

Eu uso isso

<%
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()))

Link to comment
Share on other sites

  • 0

Alea, agradecido pela informação, eu inseri o código abaixo

Ele serviu bem para a página agenda_1.asp por que ele apresenta a data de "hoje".

Mas eu preciso fazer com que ele recupere o valor "Data" enviado no link

Primeiro eu inseri este código para receptar o valor "Data":

<%
If Request.QueryString <> "" Then
data = Request.QueryString("Data")
End If   
%>
Em seguida eu inseri este código:
<%

Function apData(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
  apData = dia_semana & ", " & Day(Date()) & " de " & mes & " de " & Year(data)
End Function


       Response.Write(apData(now()))
       
%>

Mas ainda não está apresentando o valor "Data"

Veja como ficou no exemplo da página abaixo:

http://www.wagtel.com/agenda_0.asp

Edited by wagtel
Link to comment
Share on other sites

  • 0

É quando o cliente clica em uma data (entre as 5 opções) e que entra na página "agenda_2.asp" deveria parecer

em vermelho a data (escolhida) por extenso.

Tentei fazer com que o valor enviado "Data" seja recebido e interpretado pelo código.

Mas não consegui.

Caso alguém possa me ajudar, ficarei muito agradecido.

Link to comment
Share on other sites

  • 0

Agradeço à todos

Eu inseri o código a baixo e deu certo.

Veja na web como ficou:

http://www.wagtel.com/agenda_0.asp

Quando clica-se em qualquer data, aparece a data escolhida "Por Extenso".

<%
data =  Request.QueryString("Data")
data = cdate (data) 

Function apData(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
  apData = dia_semana & ", " & Day(data) & " de " & mes & " de " & Year(data)
End Function


       Response.Write(apData(data))
       
%>

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...