Cronómetro
Buenas noches.
Estoy haciendo una base de datos en donde se lleva a cabo el control de tiempo en la realización de documentos, necesito ayuda ya que quiero que esté en un botón alternativo, que cuando le de clic comience a contar por segundos y cuando le vuelva a dar clic se pause, el tiempo contado se valla actualizando en una caja de texto, les agradezco su ayuda.
Estoy haciendo una base de datos en donde se lleva a cabo el control de tiempo en la realización de documentos, necesito ayuda ya que quiero que esté en un botón alternativo, que cuando le de clic comience a contar por segundos y cuando le vuelva a dar clic se pause, el tiempo contado se valla actualizando en una caja de texto, les agradezco su ayuda.
1 respuesta
Respuesta de smanero
1
Te lo voy a explicar con un botón normal, necesitarás un campo independiente (no hace falta que lo guarde en la tabla) con formato hora y lo llamaremos horainicio y el campo a informar en la tabla se llamará Resul (en segundos).
En el código del botón ponemos lo siguiente:
If horainicio = "" Then 'pulsamos el inicio del cronómetro
horainicio = Now()
Else 'pulsamos el detener cronometro
Resul = (Now() - horainicio) * 24 * 60 * 60
horainicio = ""
End If
Form.Repaint
El resultado te saldrá en segundos con decimales.
En el código del botón ponemos lo siguiente:
If horainicio = "" Then 'pulsamos el inicio del cronómetro
horainicio = Now()
Else 'pulsamos el detener cronometro
Resul = (Now() - horainicio) * 24 * 60 * 60
horainicio = ""
End If
Form.Repaint
El resultado te saldrá en segundos con decimales.
