Visual Basic - consulta hora de entra y salida

Life is soft - evento anual de software empresarial
   
Vista:

consulta hora de entra y salida

Publicado por rodrigo nicasma@hotmail.com (6 intervenciones) el 04/05/2012 23:54:20
buenas tardes lawebdelprogramador ayuda con un codigo por favor mi nombre rodrigo apredendiz visual basic 6

tengo una consulta quiero retar al total de hora una hora de colacion
este el codigo
por ejemlo ingreso 08:00 salida 18:00 total = 10:00

lo que necesito es restar al total horas una hora de colacion

quedaria 9:00 en total




Dim lHoras As Long, lMinutos As Long
Dim n As Integer



Private Sub Command3_Click()
lMinutos = DateDiff("n", TxtEntrada, TxtSalida)

lHoras = lMinutos \ 60

lMinutos = lMinutos - (lHoras * 60)

MsgBox lHoras & ":" & Format(lMinutos, "00")
End Sub
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

consulta hora de entra y salida

Publicado por jcmg (518 intervenciones) el 05/05/2012 05:58:20
Hola Rodrigo:
le hice un lijero cambio a tu codigo

Dim lHoras As Long, lMinutos As Long
Dim n As Integer
Dim horas As Integer


Private Sub Command1_Click()
lMinutos = DateDiff("n", txtentrada, txtsalida)

lHoras = lMinutos \ 60
horas = lHoras - 1

lMinutos = lMinutos - (lHoras * 60)

MsgBox horas & ":" & Format(lMinutos, "00")
End Sub
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

consulta hora de entra y salida

Publicado por rodrigo (6 intervenciones) el 05/05/2012 23:24:01
muchas gracias por la respuesta me sirvio
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