[Resolvido] Data por extenso

[Superwagtel 1]

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

[Vinicius Ianni 189]

Se não me engano, tem um script que realiza essa função no laboratório de scripts.

[Superwagtel 1]

Preciso fazer com que o ASP 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"

Quando se clica em uma data, a página "agenda_2.asp" deveria apresentar

a data escolhida por extenso.

 

Onde estou errando na programação acima exibida?

 

 

Veja como ficou no exemplo da página abaixo:

 

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

[Superwagtel 1]

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

%>

[xanburzum 169]

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

 

Outro exemplo:

 

Ex:


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

 

e para usar

 

Response.Write(ExibeData(objRS(“data”)))
Response.Write(ExibeData(Now()))