Visual Basic - Restar Horas entre dos dias...

Life is soft - evento anual de software empresarial
 
Vista:

Restar Horas entre dos dias...

Publicado por Cristian (3 intervenciones) el 10/06/2003 19:22:24
Hola, tratare de explicarme bien... lo que necesito es restar horas, hora de salida - menos hora de entrada, pero no termina ahi, sino que por ejemplo me gustaria restar un caso por ejemplo. el tiempo entre las 13:00 hs del dia martes y las14:00 Hs del dia lunes, es decir que tiempo paso entre estas dos horas,bueno, muchas gracias desde ya.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Restar Horas entre dos dias...

Publicado por Marco Santis (265 intervenciones) el 10/06/2003 19:30:38
Tengo una función que resta, te la escribo

El formato de las variables Tiempo1 y Tiempo2 debiera ser feha y hora
ej:
Tiempo1 = "01/03/2003 15:35:14"
Tiempo2 = "17/03/2003 13:54:02"

Function Calc_Tiempo(Tiempo1 As String, Tiempo2 As String) As String
Dim ttSegundos As Single
Dim ttMinutos As Integer
Dim ttHoras As Integer

'Saca la diferencia en segundos
ttSegundos = DateDiff("s", Tiempo1, Tiempo2)

'los traspasa a minutos enteros
ttMinutos = Int(ttSegundos / 60)
'de los minutos enteros calcula los segundos resultantes
ttSegundos = ttSegundos Mod 60
'los traspasa a horas enteros
ttHoras = Int(ttMinutos / 60)
'de las horas enteras calcula los minutos resultantes
ttMinutos = ttMinutos Mod 60

Calc_Tiempo = ttHoras & ":" & ttMinutos & ":" & ttSegundos

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar