Calcular Horas

[Taribo007]

Si tubieras en el origen de control de un cuadro de texto llamado TxtTiempoTrancurrido el campo de la tabla donde quieres guardar precisamente eso, podrias hacer lo siguiente, por ejemplo, al introducir la hora de salida:

Primero copia esta funcion en un modulo:

Public Function HoraMinutosSegundos(Seg As Integer) As Date
Dim Horas As Integer
Dim Minutos As Integer

Horas = Int(Seg / 360)
Seg = Seg - Horas * 360

Minutos = Int(Seg / 60)
Seg = Seg - Minutos * 60

HoraMinutosSegundos = TimeSerial(Horas, Minutos, Seg)
End Function

Y en el boton de hora de salida:

me.TxtTiempoTrancurrido=HoraMinutosSegundos(DateDi ff("s", TxtHoraInicial, TxtHoraFinal)
)

Un saludo