Exibir por extenso data

[PRSolucaoWeb 0]

Boa tarde

 

Estou com dificuldades de exibir a data por extenso.

Exemplo:

São Cateno, 21 de Março de 2014.

 

Pois na base de dados está 21/03/2014.

 

Obrigado pela ajuda.

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

[Gustavo Emygdio Barboza 24]

Pelo que pediu é Coisa de uma linha nada mais que isso...

Dataext = day(cdate(rs("data"))) & " de " & monthname(month(cdate(rs("data")))) & " de " & year(cdate(rs("data")))

[xanburzum 169]

post#2

 

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

 

 

Saída:

 

Domingo, 23 de março de 2014

 

 

Com dia da semana

[Gustavo Emygdio Barboza 24]

PRSolucaoWeb VC queria mostrar o dia da semana seguido a data? Ou a cidade seguido a data... já Adianto que a cidade deverá vir do banco / aplicação pois não tem instrução que adivinhe a cidade que quer saia...

[xanburzum 169]

O mais usual seria:

 

São Caetano - Segunda-feira 21 de Março de 2014.

 

Ou se quiser uma aplicação com mais informação, coloque junto uma previsão de tempo, mostrando tipo, as informações do Galaxy, por exemplo: Noite sem nuvens. Noite com algumas nuvens.Sol com algumas nuvens. nublado. Noite com muitas nuvens. Sol com muitas nuvens. nublado. Noite nublada e chuvosa. Sol com muitas nuvens e chuva. Chuvoso. Noite chuvosa.Sol e chuva. Chuvoso.Chuva e trovoadas. 6n - Chuva e trovoadas.... etc

[PRSolucaoWeb 0]

Qual a função que uso para aparecer assim:?
São Caetano - Segunda-feira 21 de Março de 2014.

 

Obrigado

[wilnet 92]

Se "Cidade" for fixo, segue o sugerido no post#2, com a conclusão abaixo:

 

<%
Response.Write "São Caetano"
Response.Write " - "
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)) 
%>

 

Será exibido assim:

 

São Caetano - Segunda-feira, 24 de março de 2014

[PRSolucaoWeb 0]

Mas eu preciso pegar a data da tabela do banco de dados. E vem assim: São Caetano - Monday, 24 de March de 2014 E o que preciso é pegar da tabela e mostrar assim: São Caetano, 24 de Março de 2014

[wilnet 92]

Então PRSolucaoWeb, no Post#2, já explica isso, segue mais detalhado então:

 

 

Função Converte Data:

 

<%
Dim dia_semana, mes 
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
%>

 

Chama a Função:

 

<%
Set rs = dados.Execute("SELECT cidade,data FROM SUA_TABELA ")

Response.Write(rs("cidade"))
Response.Write " - "
Response.Write(ExibeData(rs("data")))

rs.Close
Set rs = Nothing
%>

 

Será Exibido desta Forma:

 

 

São Caetano - Sexta-Feira, 24 de Fevereiro de 2014

 

 

 

Simples...

[xanburzum 169]

ou simplesmente

 

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

[Gustavo Emygdio Barboza 24]

Gente o Lcid resolve esse problema de aparecer em inglês...

 

<%Session.LCID = 1046%>

 

coloque essa instrução para rode somente uma unica vez por exemplo no logon do seu sistema que tudo ficará em português... esse selects cases perdem o sentido ...

[xanburzum 169]

vc esta executando no Localhost ?

[PRSolucaoWeb 0]

Por enquanto sim, estou utilizando locahost.

[wilnet 92]

Olá PRSolucaoWeb,

 

Faça como sugerir no Post#10,

 

http://forum.imasters.com.br/topic/518389-exibir-por-extenso-data/?p=2061095

[xanburzum 169]

Coloque o LCID, e na hora que "upar" ele no server, provavelmente o server estará configurado e não terás esse problema, mas os códigos sugeridos no post #2 e comentando no post#10 já resolvem seu problema

[wilnet 92]

Por enquanto sim, estou utilizando locahost.

 

Mesmo no LocalHost, funciona tb ok.

[PRSolucaoWeb 0]

Fiz assim e FUNCIONOU!!

 

Function ExibeData(data_curso)
Dim tData

If isDate(data_curso) Then
tData = CDate(data_curso)
ExibeData = ", " & Day(tData) & " de " & MonthName(Month(tData)) & " de " & Year(tData)
Else
ExibeData = "Erro!"
End If

End Function

 

 

São Caetano<%Response.Write(ExibeData(cert("data_curso")))%>

 

Obrigado a todos!

[wilnet 92]

Legal,

 

Marque como Resolvido...