Autor

ASP

Data

Compartilhe e guarde

Enquete

A quanto tempo você já é desenvolvedor?

Entre 1 e 3 anos
Menos de 1 ano
Mais de 7 anos
Eu não desenvolvo
Entre 5 e 7 anos

Home Código Fonte ASP Data e Hora

Data com dia da semana e mês por extenso

Para quem precisa exibir a data completa com dia da semana e mês por extenso para saudação ou mesmo para noticias está ai um otimo código.

Ex:
Response.Write(ExibeData(objRS("data")))
Ex2:
Response.Write(ExibeData(Now()))

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

Este código foi útil para você?

Nota	Comentário
10	denunciar germo comentou em 6/8/2009 no meu deu não tem nada disso deve ser erro no navegador de vcs deixem os cokies ativados
5	denunciar abdenildo comentou em 26/1/2009 Recife, 26 de janeiro de 2009 Resolvi assim: lblData.Text = Day(strData)&" de "&MonthName(Month(strData), False)&" de "&Year(strData) A função MonthName(Month(strData), False) já retorna o nome do mês e se utilizar o já mostra em português ;). t+ e Boa Sorte, ABD.
5	denunciar kerberos comentou em 13/8/2008 complementando aó codigo nao foi enviado segue, a função FormatDateTime(Now, 1) dou nota 5 porque acho importante os desenvolvedores criaresm seu spróprios métodos assim não ficamos na mão e podem surgir novas enginers
5	denunciar kerberos comentou em 13/8/2008 data por extenso muitos desconhecem mas existem funções para isto, que ajuda a ter o mesmo resultado mas com melhor performance.
1	denunciar powerlink comentou em 21/5/2008 Data com dia da semana e mês p Não funcionou no meu navegador de erro de sintaxe.

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação: