Calcular Horas

[Taribo007]

A ver que valores estamos mandando a la funcion, prueba estO

Private Sub fin_Click()
Me.TxtHoraFinal = Time()

msgbox TxtHoraInicial
msgbox TxtHoraFinal
msgbox Datedi ff ("s", TxtHoraInicial, TxtHoraFinal)
msgbox HoraMinutosSegundos(Datedi ff ("s", TxtHoraInicial, TxtHoraFinal))

'me.TxtTiempoTrancurrido=HoraMinutosSegundos(Dated i ff ("s", TxtHoraInicial, TxtHoraFinal))
End Sub

Un saludo