Função para formatação de datas

<%

' Função para a formatação de datas de maneira fácil e rápida
' Esta função trabalha em conjunto com a função Strzero (também postada aqui)
' mas pode ser adaptada para trabalhar sem a mesma.
' (valor) é data a ser formatada
' (formato) é o formato a ser utilizado obedecendo a seguinte regra:
' DD - Para Dias
' MM - Para Meses
' YYYY - Para ano
' HH - Para Hora
' MI - Para Minutos
' SS - Para Segundos.

Session.LCID = 1046

Function ConverteData (valor,formato)
if not isDate(valor) then
   Response.Write "Data Inválida ! ... <br>"
   Response.Write "Pressione o botão [Voltar] ou [Back] do seu navegador, corrija a data e tente de novo."
   Response.End
else
   formato = UCase(formato)
   if Trim(formato) = "" then formato = "DD/MM/YYYY HH:MI:SS"
   formato      = Replace(formato,"YYYY",Year(valor))
   formato      = Replace(formato,"MM",Strzero(Month(valor),2))
   formato      = Replace(formato,"DD",Strzero(Day(valor),2))
   formato      = Replace(formato,"HH",Strzero(Hour(valor),2))
   formato      = Replace(formato,"MI",Strzero(Minute(valor),2))
   ConverteData = Replace(formato,"SS",Strzero(Second(valor),2))
end if
End Function

' Exemplos de uso

Response.Write ConverteData(Now,"DD-MM-YYYY HH:MM")
Response.Write ConverteData(Time,"Agora são HH:MM")

%>

Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...