[Resolvido] Hora no formato de 24 hs

[xanburzum 169]

A função Time24 converte um tempo para o formato de 24 horas.

 

sintaxe:

time = Time24 (timeinput)

 

exemplo :

 

<%
response.write Time24("1:15 pm")
' retorna 13:15

response.write Time24("1:15")
' retorna 01:15

response.write Time24("6:32 pm")
' retorna 18:32

response.write Time24("1:01")
' retorna 01:01
%>

code:

 

 

<%
Private Function Time24(byVal dtime)
    dim hr,mn
    hr = hour(dtime) : mn = minute(dtime)
    if len(hr) = 1 then hr = 0 & hr
    if len(mn) = 1 then mn = 0 & mn
    Time24= hr & ":" & mn
End Function
%>