(Resolvido) Data por extenso

[wagtel]

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

Editado Março 6, 2012 por wagtel

[-#Alea#-]

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

[wagtel]

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

Editado Março 11, 2012 por wagtel

[bareta]

que valor não aparece???

pelo que vi lá ta certo: Sexta-Feira, 9 de Março de 2012

[wagtel]

É 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.

[bareta]

use

data=cdate("01/07/1985")
Response.Write(apData(data))

use a data que deseja mostrar como parametro para a funcao.

[wagtel]

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