Calcular Horas

[Koudelka]

Veamos, yo quiero hacer lo siguiente. Tengo una base de datos en la que quiero calcular las horas totales en las que un operario trabaja. Dichas horas se guardan en el campo horas. Para calcular esas horas (y para que nadie le engañe al jefe), tengo que hacerlo de la siguiente manera.

Se me abre un formulario con los botones de inicio y otro de fin. Cuando se le pulsa a inicio, que se guarde la hora actual y guardarlo en el campo horainicio. Después, en el botón fin quiero hacer lo mismo, que al pulsar se guarde la hora y se guarde en el campo horafinal.

Una vez guardados esos campos, que se calcule las horas de diferencia para que al final me den las horas y que esa cuenta se guarde en el campo horas.

(realmente esto que tengo que hacer tiene más complicación, pero primero quiero ver si me sale esto >.<)

[Taribo007]

Para obtener la hora del sitema tienes la funcion time(). Por ejemplo, para asiganar a un control llamado TxtHoraInicio la hora al pulsar un boton, pondrias en su evento click:

me.TxtHoraInicio=time()

Mira en la ayuda la funcion datediff, es para obtener la diferencia entre fechas.

Un saludo

[Koudelka]

vale, lo del clik funciona, pero como guardo esas horas en la tabla? (necesito guardarlas >.<)

[Taribo007]

Tienes dos opciones, depende de la estructura de los forms.
Opcion1: que el control (en el ejemplo TxtHoraInicio) tenga como origen de control el campo de la tabla donde lo quieres guardar, y para ello el form ha de tener como origen de registro la tabla en cuestion.

Opcion: una consulta de inserccion o de actualizacion.

Pero ya te digo que depende de como lo tengas montado.

Un saludo

[Koudelka]

vale, ya se me guardan XD. He ido a mirar en ayuda lo del datediff y me da error XDDD asíq ue me parece que la parte de aydua en el programa está puffff

[Taribo007]

Esto dice la ayuda. Yo lo que haria es calcular la diferencia con la funcion datediff en segundos, y luego pasarlo a ahoras, minutos y segundos:

COPIO********************************************* *
DateDiff (Función)


Devuelve un valor de tipo Variant (Long) que especifica el número de intervalos de tiempo entre dos fechas determinadas.

Sintaxis

DateDiff(intervalo, fecha1, fecha2[, primerdíasemana[, primerasemanaaño]])

La sintaxis de la función DateDiff consta de los siguientes argumentos con nombre:

Parte Descripción
Intervalo Requerido. Expresión de cadena con el intervalo de tiempo utilizado para calcular la diferencia entre fecha1 y fecha2.
Fecha1, fecha2 Requerido; Variant (Date). Las dos fechas que se van a utilizar en el cálculo.
Primerdíasemana Opcional. Constante que especifica el primer día de la semana. Si no se especifica, se asume que es el domingo.
Primerasemanaaño Opcional. Constante, que especifica la primera semana del año. Si no se especifica, se asume que es aquélla en la que se encuentre el 1 de enero.



Valores

El argumento intervalo toma los valores siguientes:

Intervalo Descripción
yyyy Año
q Trimestre
m Mes
y Día del año
d Día
w Día de la semana
ww Semana
h Hora
n Minuto
s Segundo



El argumento primerdíasemana toma los siguientes valores:

Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbSunday 1 Domingo (predeterminado)
vbMonday 2 Lunes
vbTuesday 3 Martes
vbWednesday 4 Miércoles
vbThursday 5 Jueves
vbFriday 6 Viernes
vbSaturday 7 Sábado



Constante Valor Descripción
vbUseSystem 0 Utilice la configuración de la API de NLS.
vbFirstJan1 1 Empieza con la semana en la que se encuentra el 1 de enero (predeterminado).
vbFirstFourDays 2 Empieza con la primera semana que tenga al menos cuatro días en el nuevo año.
vbFirstFullWeek 3 Empieza con la primera semana que esté completamente incluida en el nuevo año.



Comentarios

Puede utilizar la función DateDiff para determinar el número de intervalos especificados que existen entre dos fechas. Por ejemplo, con DateDiff podría calcular el número de días entre dos fechas o el número de semanas entre hoy y el final del año.

Si desea saber el número de días entre fecha1 y fecha2, puede utilizar Día del año ("y") o Día ("d"). Cuando intervalo es Día de la semana ("w"), DateDiff devuelve el número de semanas entre las dos fechas. Si fecha1 es lunes, DateDiff contará el número de lunes hasta fecha2. En la cuenta incluirá fecha2, pero no fecha1. Si intervalo es Semana ("ww"), la función DateDiff devolverá el número de semanas entre las dos fechas. En este caso contará el número de domingos entre fecha1 y fecha2. DateDiff contará fecha2 si es domingo, pero no fecha1, aunque sea domingo.

Si fecha1 se refiere a un momento posterior en el tiempo a fecha2, la función DateDiff devolverá un número negativo.

El argumento primerdíasemana afecta a los cálculos que utilizan "w" y "ww" como símbolos de intervalo.

Si fecha1 o fecha2 es un literal de fecha, el año, si se especifica, pasará a ser una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 está comprendida entre comillas dobles ("") y se omite el año, se insertará el año en curso en el código cada vez que se evalúe la expresión fecha1 o fecha2. Así es posible escribir código que se pueda usar en años distintos.

Cuando compara el 31 de diciembre con el 1 de enero del año siguiente, DateDiff para un año ("yyyy") devolverá 1 aunque sólo haya pasado un día.

Nota Para fecha1 y fecha2, si la configuración de la propiedad Calendar es gregoriano, la fecha proporcionada debe ser gregoriano. Si el calendario es Hijri, la fecha proporcionada debe ser Hijri.

FIN COPIA********************************************* ******

[Koudelka]

entonces yo tendría que poner esto?:

DateDiff(intervalo, HoraInicial, HoraFinal)

[Taribo007]

Efectivamente, poniendo el intervalo entre comillas, por ejemlpo para los segundos:

DateDiff("s", HoraInicial, HoraFinal)

un saludo

[Koudelka]

pero entonces después de haberlo calculado en segundos.... cómo lo paso a horas? porque no creoque se pueda ponerlo en el mismo campo (de hecho, ahora que lo pienso, no se donde se coloca eso o_O)

[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

[Koudelka]

creo que aún estoy dormida... qué módulo?

[Taribo007]

En un modulo, en culaquiera. Si no tienes ninguno crea uno nuevo (yo siempre tengo uno llamado funciones) y pegas ahi el codigo. Como la funcion es publica, se puede acceder a ella desde cualquier parte de tu bd

Un saludo

[Koudelka]

Pero esto:

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

que lo pongo junto con la opción que tengo puesta de darle clic?

[Taribo007]

Te proponia que lo hicieras en el boton que pulsa el empleado para introducir la hora final, en ese momento ya tienes los datos necesarios para hacer el calculo, y si la hora inicio, hora fin y tiempo trancurrido esta en la misma tabla, esta sera origen de registro del form donde esta ese boton y podras tener un cuadro de texto alq ue yo he llamada TxtTiempoTrancurrido con origen de control el campo de la tabla donde quieres guaradr la diferencia.

Un saludo

[Koudelka]

Yo lo pongo de esta manera:

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

y me da error >.<

[Taribo007]

Y que error te da??

un saludo

[Koudelka]

Error de compilación en la línea del tiempo transcurrido.

He intentado arreglarlo juntado ls dos f con la palabra DateDi, pero me da el mismo error

[Taribo007]

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

[Koudelka]

me sigue dando error

[Taribo007]

Y que error te da ahora???
Has copiado la funcion en un modulo????
Hay un cuadro de texto en el form con este nombre TxtTiempoTrancurrido)
???
Y otro con este TxtHoraInicial???
Y otro con este TxtHoraFinal???

Un saludo

[Koudelka]

tengo todo eso y me da el error de antes

[Koudelka]

igual es que no he cargado bien el módulo?

[Taribo007]

Vamos a probar si lo has hecho bien. Pon un boton en cualquir form, y en su evento click lo siguiente:

MsgBox HoraMinutosSegundos(3600)

Si esta bien, te saldra un mensaje en el que pondra: 10:00:00

un saludo

[Koudelka]

lo he puesto en el mismo formulario donde tengo los botones de inicio y fin y si que me sale eso

[Taribo007]

Esta bien entonces. Vamos a intentar ver donde esta le error: pon esto en el boton del fin:

Falta un parentesis en esa linea, te lo pongo en rojo:

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

Un saludo

[Taribo007]

No se por que sale el datediff separado, yo lo veo junto al escribir el mensaje y al editarlo, pero cuando lo envio sale separado. No le hagas caso, va junto.

Un saludo

[Koudelka]

me sigue dando error de sintaxis. Es curioso que cuando lo copi antes de guardar la frase está roja, será por el ) que has puesto rojo?.

igual es que hay que poner de otra manera hora minutos y segundos o_O

[Koudelka]

a ver, me he fijado de que volvía a estar separado DateDi ff, lo he juntado y me da error "6"

[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

[Koudelka]

me da error de sintaxis y antes de probarlo me marcaba en rojo las siguientes lineas (donde da el error justamente)

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