quinta-feira, 15 de março de 2001

Função para formatação de datas

Esta função é bem simples. Basta colocá-la num arquivo .INC e dar um "include" nas páginas onde você necessitar usá-la. Veja:

<%
Function PrepareDAT(datData, Forma)
    Dim Dia, Mes, Ano, Hora, Minuto
    Session.LCID = 1036
    If Not IsDate(datData) Then
        datData = Now()
    End If
    Dia = "" & Right("00" & Cstr(Day(datData)), 2)
    Mes = "" & Right("00" & Cstr(Month(datData)), 2)
    Ano = "" & Right("0000" & Cstr(Year(datData)), 4)
    Hora = "" & Right("00" & Cstr(Hour(datData)), 2)
    Minuto = "" & Right("00" & Cstr(Minute(datData)), 2)
    If Forma = 1 Then
        PrepareDAT = CStr(Trim(Dia) & "/" & Trim(Mes) & _
                    "/" & Trim(Ano) & " " & Trim(Hora) & _
                     ":" & Trim(Minuto))
    ElseIf Forma = 2 Then
        PrepareDAT = CStr(Trim(Ano) & "/" & Trim(Mes) & _
                     "/" & Trim(Dia) & " " & Trim(Hora) & _
                     ":" & Trim(Minuto))
    End If
End Function
%>

Para usá-la é bem simples, veja:


Algo = PrepareDAT(SuaData, 1)
"Algo" passará a conter uma data no formato "dd/mm/yyyy hh:mm".


Algo = PrepareDAT(SuaData, 2)
"Algo" passará a conter uma data no formato "yyyy/mm/dd hh:mm".



Esta matéria foi postada originalmente no ASP4Developers por Mário César Mancinelli de Araújo, que na época era "Sou o 3D Man®, frequentador dos news da UOL (grupos de ASP e ASP.NET) e da NetSite (grupos de VB, VB Avançado, ASP e Flash)... :^)". Hoje, vai saber...

0 comentários: