[Resolvido] Personalizar datas e horas

[Patrique 0]

Fala ai galera, segue abaixo uma function que eu fiz para personalizar datas e horas

 

<%
Function DataLogica(data,modelo)

    data = data

    dia = Right("0" & DatePart("d", Data),2)
    mes = Right("0" & DatePart("m", Data),2)
    ano = Right("0" & DatePart("yyyy", Data),2)

    If modelo = 1 Then
        mes = mes
    Else
        If mes = 01 Then mes = "jan"
        ElseIf mes = 02 Then mes = "fev"
        ElseIf mes = 03 Then mes = "mar"
        ElseIf mes = 04 Then mes = "abr"
        ElseIf mes = 05 Then mes = "mai"
        ElseIf mes = 06 Then mes = "jun"
        ElseIf mes = 07 Then mes = "jul"
        ElseIf mes = 08 Then mes = "ago"
        ElseIf mes = 09 Then mes = "set"
        ElseIf mes = 10 Then mes = "out"
        ElseIf mes = 11 Then mes = "nov"
        ElseIf mes = 12 Then mes = "dez"
        End If
    End If
        
    DataLogica = dia & "/" & mes & "/" & ano

End Function

vData = "27/8/2010"

Response.Write DataLogica(vData,1)
Response.Write "<br />ou<br />"
Response.Write DataLogica(vData,2)

Response.Write "<br /><br />"

Function HoraLogica(hora,modelo)
    HoraLogica = Right("0" & Hour(hora),2) & ":" & Right("0" & Minute(hora),2) & modelo
End Function

vHora = "10:04:13"

Response.Write HoraLogica(vHora,"m")
Response.Write "<br />ou<br />"
Response.Write HoraLogica(vHora,"min")
%>

AOS QUE USAREM OU PEGAREM O CODE AGRADEÇAMMMMMMMMMMMMMMMM SEJAM EDUCADOS PARA QUEM OS AJUDA http://forum.imasters.com.br/public/style_emoticons/default/joia.gif