Detener cronómetro en un minuto.

Cerrado
PEPEPE
Message postés
3
Date d'inscription
martes, 19 de julio de 2005
Estatus
Miembro
Última intervención
martes, 27 de agosto de 2013
- 26 ago 2013 a las 18:07
PEPEPE
Message postés
3
Date d'inscription
martes, 19 de julio de 2005
Estatus
Miembro
Última intervención
martes, 27 de agosto de 2013
- 27 ago 2013 a las 15:56
Hola amigos. Tengo un Userform con cronómetro, pero quisiera se detenga en un minuto.
Ojala y me ayuden mofificando su código, es el siguiente:

Dim Parar As Boolean
Dim Tempo As Date

Sub Cronometro()

While Parar = False

txt_Cronometro = Format(Tempo, "hh:mm:ss")

Tempo = Tempo + TimeValue("00:00:01")

Application.Wait Now + TimeValue("00:00:01")

DoEvents

Wend

End Sub

Sub Encerrar()

cmd_Iniciar.Enabled = True

Parar = True

End Sub

Sub Iniciar()

Parar = False

Cronometro

End Sub

Private Sub cmd_Iniciar_Click()

cmd_Iniciar.Enabled = False

cmd_Zerar.Enabled = False

Call Iniciar

End Sub

Private Sub cmd_Parar_Click()

Tempo = Tempo

cmd_Zerar.Enabled = True

Call Encerrar

End Sub

Private Sub cmd_Zerar_Click()
Tempo = 0

txt_Cronometro = "00:00:00"

Call Encerrar

End Sub

1 respuesta

PEPEPE
Message postés
3
Date d'inscription
martes, 19 de julio de 2005
Estatus
Miembro
Última intervención
martes, 27 de agosto de 2013

27 ago 2013 a las 15:56
Gracias ya lo resolví. Caso cerrado,
0