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

9 respostas para Data com dia da semana e mês por extenso

  1. amauri disse:

    dia da semana e mês

  2. UFSCIMOVEIS disse:

    O melhor site com imoveis para estudantes da federal de SC. Tudo gratis e rapido direto com o priprietario. UFSCIMOVEIS http://www.UFSCIMOVEIS.Com

  3. Thiagus disse:

    Amigo, talvez seja mais economico utilizar somente a linha de baixo, que mostra a formação da data como deseja.

  4. Thiagus disse:

    <%=formatdatetime(now(),1)%>

  5. Fábio Godoy disse:

    Ola amigos,
    tenho uma outra maneira de escrever a mesma data com o mesmo resultado utilizando meios mais simplis,
    nao quero que isso pareça uma critica ao post do amigo, mas sim que sirva para adicionar conhecimento aos usuários.
    segue cdgo.

    Espero ter ajudado,
    um grande abraço.

    Fábio Godoy

  6. Fábio Godoy disse:

    Function ExibeData(data)
    session.LCID = 1046
    ‘ esse numero 1046 representa o Portugues do Brasil, se nao colocar o codigo,
    ‘ as datas podem sair em outra lingua, vai depender da configuraçao do servidor.

    dia_semana = (weekdayname(weekday(data)))
    ‘dia da semana por extenso
    mes_atual = (monthname(month(data),false))
    ‘nome do mes por extenso, se usar o TRUE ao inves do FALSE,
    ‘o nome do mes fica abreviado, por exemplo jan, fev, mar, etc.

    ExibeData = (“hoje é: “&dia_semana & “, dia ” & Day(data) & ” de ” & mes_atual & ” de ” & Year(data))
    ‘gera a linha de exibição
    end function

    response.Write(ExibeData(now()))
    ‘exemplo

  7. Danilo Silva disse:

    Parabens muito bom.

    Me ajudou bastante.

    Obrigado.

  8. Marcos disse:

    Um curso muito bom, que eu achei principalmente para iniciante é o

    curso online de asp do curso24h

    um material super interativo, bem mais fácil de aprender.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: