pasar hora a numero

[Avellaneda]

Hola, la cuestión es sacar la diferencia en segundos entre las dos horas y dividir el resultado entre 3600.

Supongamos que en el Text1 tenemos la hora de entrada y en el Text2 la de salida:

Código vb:

Dim lSegundos As Long, dDecimal As Double
 
lSegundos = DateDiff("s", Text1, Text2)
dDecimal = lSegundos / 3600
MsgBox dDecimal
 

Saludos