perdón por tardar en contestar (vacaciones XD). Veamos, si no recuerdas mal tariboo, se hizo un módulo con lo siguiente:
Código:
Public Function HoraMinutosSegundos(Seg As Long) As Date
Dim horas As Long
Dim minutos As Long
horas = Int(Seg / 3600)
Seg = Seg - horas * 3600
minutos = Int(Seg / 60)
Seg = Seg - minutos * 60
HoraMinutosSegundos = TimeSerial(horas, minutos, Seg)
End Function
Después de eso, había dos botones que al pulsarlos guardaban la hora actual, pero en el segundo, había lo siguiente (que es donde calcula la hora final).
Código:
Private Sub fin_Click()
fin.ForeColor = vbRed
Me.TxtHoraFinal = Time()
TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))
'Me.TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))
End Sub
Lo que necesito es que en el informe, me muestre el TxtTiempo Transcurrido (lo hace), peeeero que abajo de la hoja (por ejemplo) me haga una suma total de todo ese tiempo transcurrido, me explico?