Ir para o conteúdo

Personalizar Datas E Horas


Criado por Patrique, Out 10 2010 00:44

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 00:44

*
REVISÃO POPULAR!

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

<%
autor: Patrique André (O Gostosão)
perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

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")
%>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)