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()))
%>
dia da semana e mês
otimo solução!
O melhor site com imoveis para estudantes da federal de SC. Tudo gratis e rapido direto com o priprietario. UFSCIMOVEIS http://www.UFSCIMOVEIS.Com
Amigo, talvez seja mais economico utilizar somente a linha de baixo, que mostra a formação da data como deseja.
<%=formatdatetime(now(),1)%>
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
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
Parabens muito bom.
Me ajudou bastante.
Obrigado.
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.