USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Formatar Datas Em Português
Postada em 23/10/2003 por ^HEAVY-METAL^            
Os Web Developers portugueses têm um problema com os Web Providers, na sua maioria Americanos, e a data que o servidor apresenta é num formato do Português (Europeu), ou seja, os servidores Americanos, apresentam da seguinte form: mm/dd/aaaa, ao passo que para os portugueses seja mais conveniente dd,mm,aaaa.

O processo que eu apresento é bastante simples, não tem nada de programação avançada, nem programação muito complexa.

Eis as poucas linhas que podem escrever.

<%

diasemana=Weekday(date())
if diasemana=1 then
    diasemanaB="Domingo"
end if
if diasemana=2 then
    diasemanaB="Segunda-feira"
end if
if diasemana=3 then
    diasemanaB="Terça-feira"
end if
if diasemana=4 then
    diasemanaB="Quarta-feira"
end if
if diasemana=5 then
    diasemanaB="Quinta-feira"
end if
if diasemana=6 then
    diasemanaB="Sexta-feira"
end if
if diasemana=7 then
    diasemanaB="Sábado"
end if
dia=day(date())
mes=month(date())
ano=year(date())
if mes=1 then
    mesB="Janeiro"
end if
if mes=2 then
    mesB="Fevereiro"
end if
if mes=3 then
    mesB="Março"
end if
if mes=4 then
    mesB="Abril"
end if
if mes=5 then
    mesB="Maio"
end if
if mes=6 then
    mesB="Junho"
end if
if mes=7 then
    mesB="Julho"
end if
if mes=8 then
    mesB="Agosto"
end if
if mes=9 then
    mesB="Setembro"
end if
if mes=10 then
    mesB="Outubro"
end if
if mes=11 then
mesB="Novembro"
end if
if mes=12 then
mesB="Dezembro"
end if

response.Write( diasemanaB &"
"& dia &" de "& mesB &" de "& ano )
%>


T+,
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página