Data por extenso

[Frango 0]

Galera seguinte,Como eu faço pra eu mostrar a data desta forma:Segunda-feira 25 Abril

[mx loco 1]

Sempre gosto de exibir dados para o usoário da seguinte forma:<%=FormatDateTime("10/12/2005",1)%>Retorno:sábado, 10 de dezembro de 2005Axo uma menira simples e bem completa.Abraços.

[vcdias 0]

O exemplo acima, a data impressa na tela é "sábado, 10 de dezembro de 2005".Para imprimir a data atual basta colocar <%=FormatDateTime(now(),1)%>

[Patrick José 0]

Função que desenvolvi para mostrar a data

 

Session.LCID = 1046sub dataHora(modo)if modo = "dia" Thendia = weekday(now)If dia = 1 Thendia = "Domingo"elseif dia = 2 Thendia = "Segunda-Feira"elseif dia = 3 Thendia = "Terça-Feira"elseif dia = 4 Thendia = "Quarta-Feira"elseif dia = 5 Thendia = "Quinta-Feira"elseif dia = 6 Thendia = "Sexta-Feira"elseif dia = 7 Thendia = "Sábado"End Ifresponse.Write(dia)ElseIf modo = "data" Thendata = formatdatetime((now),1)data = mid(data,(Instr(1, data, ",", 1)+1),len(data))response.Write(data)End Ifend sub

e na hora de chamar a atenção;

<%call dataHora("dia")%> <%call dataHora("data")%>