Como sumar horas?

[aluminense]

Buenos dias a todos. les comento el problema que tengo. Estoy tratando de hacer un programita con vb6 y lo que necesito es que me Acumule el total de horas que trabajo una persona. Estoy utilizando variables del tipo DATE pero solo puedo acumular hasta 24:00 hs. y si esa personal trabaja mas de 24 hs me da otro resultado. por ejemplo, si la persona trabajo 56 horas, que me muestre que trabajo las 56:00 hs. Soy nuevo en vb y Agradezco cualquier ayuda que me puedan brindar.

[Avellaneda]

Iniciado por aluminense

Buenos dias a todos. les comento el problema que tengo. Estoy tratando de hacer un programita con vb6 y lo que necesito es que me Acumule el total de horas que trabajo una persona. Estoy utilizando variables del tipo DATE pero solo puedo acumular hasta 24:00 hs. y si esa personal trabaja mas de 24 hs me da otro resultado. por ejemplo, si la persona trabajo 56 horas, que me muestre que trabajo las 56:00 hs. Soy nuevo en vb y Agradezco cualquier ayuda que me puedan brindar.

Supongamos que la primera hora la tenemos en un TextBox (TxtEntrada) y la segunda en otro (TxtSalida) y que las fechas están en formato "dd/mm/yyyy hh:mm AM/PM"

Código:

Dim lHoras As Long, lMinutos As Long
    
lMinutos = DateDiff("n", TxtEntrada, TxtSalida)
lHoras = lMinutos \ 60
lMinutos = lMinutos - (lHoras * 60)
MsgBox lHoras & ":" & Format(lMinutos, "00")