Visual Basic - Sumar horas

Life is soft - evento anual de software empresarial
 
Vista:

Sumar horas

Publicado por Ivan Tinoco (3 intervenciones) el 25/04/2004 00:51:10
Hola compañeros
por favor, necesito urgente la forma de sumar varias horas y determinar un total de tiempo gastado, eje: Hora1=10:00 , Hora2=11:25 , Hora3=23:00
al final me debe decir que el tiempo total es:44:25
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:Sumar horas

Publicado por Cristian (108 intervenciones) el 26/04/2004 04:50:20
Hola
No soy muy experto en VB peero consegui sacar esto.
'Espero esto te sea util
'Aunque el codigo es un poco reforzado funciona para lo que necesitas
'coloca un boton y el siguiente codigo
Option Explicit
Dim Hora1, Hora2, Hora3
Dim THoras, TMinutos
Private Sub Command1_Click()
'Aqui sumo las hora de las 3 horas
THoras = Hour(Hora1) + Hour(Hora2) + Hour(Hora3)
'Aqui sumo los minutos del las 3 horas
TMinutos = Minute(Hora1) + Minute(Hora2) + Minute(Hora3)
MsgBox THoras & ":" & TMinutos
End Sub

Private Sub Form_Load()
'Aqui se le coloca el formato a la hora
Hora1 = #10:00:00 AM#
Hora2 = #11:25:00 AM#
'Aqui es 11 y no 23 porque esta PM
Hora3 = #11:00:00 PM#
End Sub

Chao
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

RE:Sumar horas

Publicado por konrad (2 intervenciones) el 26/04/2004 07:01:35
miren hay una forma mas facil de hacer eso.....

solo tienes q utilizar la funcion FORMAT y declarar las varibles como date

eso es todo...

konrad

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

RE:Sumar horas

Publicado por Cristian (108 intervenciones) el 26/04/2004 18:35:21
Hola
Pero lo intente con Format y no funciona
Chao
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