Ver Mensaje Individual
  #18 (permalink)  
Antiguo 06/03/2008, 03:21
Avatar de Taribo007
Taribo007
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 16 años, 9 meses
Puntos: 18
Re: Calcular Horas

Tienes esto exactamente asi???

Private Sub fin_Click()
Me.TxtHoraFinal = Time()
me.TxtTiempoTrancurrido=HoraMinutosSegundos(DateDi ff("s", TxtHoraInicial, TxtHoraFinal)
End Sub

Deberia estar asi:

Private Sub fin_Click()
Me.TxtHoraFinal = Time()
me.TxtTiempoTrancurrido=HoraMinutosSegundos(DateDiff("s", TxtHoraInicial, TxtHoraFinal)
End Sub

Un saludo