[Resolvido] Função para conversão de horário

Criei essa função para responder um tópico, mas acho que pode ser útil para outras pessoas, pois facilita a soma de horas, minutos e segundos.

Obs1. Sempre informar à função converteSegundosHorario, o horário no formato hh:mm:ss . Complete com zero quando não estiver completo.

Obs2. Utilize a função FormatDateTime para formatar o horário final da forma que preferir.

Obs3. Mantenha os créditos. http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

Update:

• 30.04.2009: Alterada função converteHorarioSegundos para trabalhar com horário maior que 23:59:59

<%
'*********************************************************
' Função para conversão de horário
' Autor: hargon
' Propósito: Converter Horário em Segundos ou vice-versa
' Data: 02/06/2008
' Fórum: Imasters (www.imasters.com.br/forum)
'*********************************************************
Option Explicit

Function converteHorarioSegundos(ByVal horario)
Dim segundos, minutos, horas
Dim horarioArray

segundos = "00"
minutos = "00"
horas = "00"

horarioArray = split(horario,":")

If (uBound(horarioArray) >= 0) Then
horas = horarioArray(0)
End If
If (uBound(horarioArray) >= 1) Then
minutos = horarioArray(1)
End If
If (uBound(horarioArray) >= 2) Then
segundos = horarioArray(2)
End If

converteHorarioSegundos = (horas3600) + (minutos60) + segundos
End Function

Function converteSegundosHorario(segundos)
Dim minutos, horas
horas = int(segundos/3600)
minutos = int((segundos mod 3600) / 60)
segundos = int((segundos mod 3600) mod 60)
if len(minutos) < 2 then : minutos = 0 & minutos : end if
if len(segundos) < 2 then : segundos = 0 & segundos : end if

converteSegundosHorario = horas & ":" & minutos & ":" & segundos
End Function

response.write converteSegundosHorario(converteHorarioSegundos("1:30:00") + converteHorarioSegundos("2:50:00"))
%>