Calcular Horas

[Taribo007]

Pruebalo pero juntando las ff al datedi, siempre deben estar juntas.

un saludo

[Koudelka]

a ver, me salen las siguientes pantallas:

la primera en blanco (esta es la hora de inicio?)
la segunda pone la hora: 11:33:52
la tercera este número: 41632
y la siguiente es la pantalla de error 6

[Taribo007]

Cambia la primera linea de la funcion por esta: (te pongo en rojo lo que he modificado)

Public Function HoraMinutosSegundos(Seg As Long) As Date

Un saludo

[Koudelka]

sigue dando lo mimos -.-

[Taribo007]

Los mismos datos o el mismo error??? En el prmer msgbox deberia salir la hora de inicio, que se supone que el empleado introdujo en su oemnto.

Un saludo

[Koudelka]

la primera en blanco
la segunda pone la hora: 11:58:38
la tercera este número: 43118
y la siguiente es la pantalla de error 6

[Koudelka]

veamos, he cambiaod un nombre y ya la primera ventana ya no me sale en blanco, me muetsra la hora, pero sigu dando el error 6

Tengo puesto lo siguiente (cambiando alguna palabra y juntando las ff de dateDiff)

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

MsgBox TxtHoraInicio
MsgBox TxtHoraFinal
MsgBox DateDiff("s", TxtHoraInicial, TxtHoraFinal)
MsgBox HoraMinutosSegundos(DateDiff("s", TxtHoraInicial, TxtHoraFinal))

'me.TxtTiempoTrancurrido=HoraMinutosSegundos(Dated iff ("s", TxtHoraInicio, TxtHoraFinal))
End Sub

[Taribo007]

Como se llama el cudro de texto de la hora de inicio?? asi TxtHoraInicio?? o asi TxtHoraInicial??

un saludo

[Koudelka]

se llama TxtHoraInicio

[Taribo007]

Entonces ponle el nombre real:

MsgBox HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))


Un saludo

[Koudelka]

ahora no me da ningún error, m sale lo siguiente:

12:16:36
13:18:34
47914
10:01:58

el último número es la suma? o_O

[Taribo007]

Asi te tiene que salir:

MsgBox TxtHoraInicio
MsgBox TxtHoraFinal
MsgBox DateDiff("s", TxtHoraInicio, TxtHoraFinal)
MsgBox HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

Y cambia la funcion por esta:

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

Un saludo

[Koudelka]

vale, ahora en la casilla pone 1:19:33

Ahora sólo queda que ese dato se pase al cuadro de texto y se guarde en la tabla o_O

[Taribo007]

Entonces solo has de cambiar lo rojo por el nombre del cuadro de texto que tenga origen de control el campo de la tabla donde lo quiers guardar:

MsgBox =HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

Un slaudo

[Koudelka]

creo que no lo he colocado bien, yo he puesto esto:

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

MsgBox TxtHoraInicio
MsgBox TxtHoraFinal
MsgBox DateDiff("s", TxtHoraInicial, TxtHoraFinal)
TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))

'Me.TxtTiempoTrancurrido = HoraMinutosSegundos(DateDiff("s", TxtHoraInicio, TxtHoraFinal))
End Sub

[Taribo007]

Si el cuadro de text se llama TxtTiempoTrancurrido , lo has hecho bien.

un saludo

[Koudelka]

pues en TxtTiempoTrancurrido me sigue quedando un 0 redondito -.-

[Taribo007]

TxtTiempoTrancurrido tiene origen de control??? Que tipo de datos tiene este origen??

Un saludo

[Koudelka]

tiene de origen el campo horas y es numérico, quizá lo tengo que cambiar a texto para que se guarde?

EDI: vale, es eso XD