Olá Pessoal,

 

Estou com uma dúvida, acho que é simples mais não consegui resolver.

 

É o seguinte, estou precisando de criar uma espécie de contados de tempo, ou seja, quando eu clicar em um botão o Cronometro vai iniciar a contagem.

 

O objetivo e auxiliar uma equipe de suporte a controlar o seu tempo, pois quando chegar perto de 10 minutos o usuário será notificado com algumas mensagens.

 

Eu só preciso de um script que faça este cronometro!

 

Muito obrigado!

Thiago Godoy

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim iRet        As Long

Private Sub Command1_Click()
    
   iRet = GetTickCount
  
End Sub

 

 

Private Sub Command2_Click()
    MsgBox (GetTickCount - iRet) / 1000 
End Sub

 

Clicando no primeiro botão disparas um contador interno do windows. QUando clicares no segundo botao, terás o espaço de tempo entre os dois cliques.

 

Espero ter ajudado

Na verdade é quase isto... só que eu preciso de mostrar o tempo correndo na tela, você tem algum exemplo?

Ola thiago.

 

Crie um novo projeto. Coloque no form, dois commands button, um para ser o start e o outro sera o stop. Coloque tambem um label para exibir o tempo contado e um timer que é o que controlará o tempo. Depois cole o codigo abaixo e teste.

 

Dim horario1
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub Form_Load()
    Label1 = "00:00:00"
    Timer1.Interval = 1000
    Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
    horario1 = DateAdd("s", 1, horario1)
    Label1 = Format(horario1, "hh:mm:ss")
End Sub

 

Poste depois os resultados para que outros se beneficiem tambem.

O codigo é simples, mas funcional. Tente entender e implemente de acordo com sua necessidade.

Qualquer duvida estamos aí...

 

Fui...

Valeu!! Era isto mesmo!!!

Eu uso dessa forma:

Inclua um timer, dois botões de comando e três labels

 

 

Option Explicit
Dim tInicio As Date
Dim tConcluir As Date
Dim tTempoDecorrido As Date

 

Private Sub Timer1_Timer()
tConcluir = Now
tTempoDecorrido = tConcluir - tInicio

Me.lblConcluir.Caption = Format(tConcluir, "HH:MM:SS")
Me.lblDecorrido.Caption = Format(tTempoDecorrido, "HH:MM:SS")
End Sub

Private Sub cmdExecutar_Click()
tInicio = Now
Me.lblIniciar.Caption = Format(tInicio, "HH:MM:SS")
Me.Timer1.Enabled = True
End Sub

Private Sub cmdFinalizar_Click()
tConcluir = Now
Me.lblConcluir.Caption = Format(tConcluir, "HH:MM:SS")
tTempoDecorrido = tConcluir - tInicio
Me.lblDecorrido.Caption = Format(tTempoDecorrido, "HH:MM:SS")
Me.Timer1.Enabled = False
End Sub