Visual Basic - como calcular horas trabajadas si pasan la media noche

Life is soft - evento anual de software empresarial
 
Vista:

como calcular horas trabajadas si pasan la media noche

Publicado por Gabriel (1 intervención) el 06/11/2013 12:32:30
Hola. Mi programa es en Visual Studio 2010 y programado en visual basic. tengo un problema al tartar de calcular las horas trabajadas cuando la persona entra por ejemplo a las 11:00pm de un dia y los demas registros son de la fecha siguiente. no encuentro como hacer esto y ordenarlo correctamente.

Ejemplo; Lunes entro a 10:00pm sale a 6am del proximo dia
Martes entro a las 11:00pm y sale a las 7am del proximo dia

Quiero poder ver un informe que salga de esa manera y calcule el total de horas trabajadas correctamente. Actualmente, no logro ese resultado ya que hay dos fechas involucradas.

Gabriel
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
sin imagen de perfil

como calcular horas trabajadas si pasan la media noche

Publicado por Pedro Luis (56 intervenciones) el 06/11/2013 14:47:36
Te propongo un ejercicio-
Pon un formulario con tres botones y pon el siguiente codigo.

Dim fecha1 As Date, fecha2 As Date

Private Sub Command1_Click()
fecha2 = Time

End Sub

Private Sub Command2_Click()
fecha1 = Time
End Sub

Private Sub Command3_Click()
Print Format((fecha2 - fecha1), "hh:mm:ss")
End Sub

Si esperas unos segundos entre el primer click y el segundo click obtendras 00:00:08, si esperas un minuto o mas obtendras minutos.
Si restas dos fechas con formato completo obtendras dias y decimales de dias y como el dia tiene 24 horas pues tu mismo.
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

como calcular horas trabajadas si pasan la media noche

Publicado por omar (17 intervenciones) el 06/11/2013 14:57:03
Puedes sumar horas hay funciones que hacen eso.

Puedes ver el informe en un datagridview para después imprimirlos

envíame un email para ayudarte pc.net.2018 en hotmail
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