Jump to content

POWERED BY:

Archived

This topic is now archived and is closed to further replies.

hargon

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

Recommended Posts

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 = (horas*3600) + (minutos*60) + 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"))
%>

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.