Visual Basic para Aplicaciones - VB Medir tiempo

Life is soft - evento anual de software empresarial
 
Vista:

VB Medir tiempo

Publicado por Rolando (3 intervenciones) el 24/04/2019 22:38:56
Hola buenas tardes.
Deseo medir el tiempo en que transcurre entre abrir un formulario y al momento de cerrarlo con un botón. Sin embargo siempre me da un tiempo superior a 50000. Como puedo solucionarlo?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
 
Dim t As Single
t = Timer
stop_time = Timer
Label1.Caption = t
 
End Sub
 
Private Sub UserForm_Click()
 
start_time = Timer
Timer = 0
 
End Sub


Por favor me explican qué estoy haciendo mal?

De antemano mil gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

VB Medir tiempo

Publicado por Antoni Masana (498 intervenciones) el 25/04/2019 07:31:03
Este es el código más correcto para que funcione:

1
2
3
4
5
6
7
8
9
Public Start_Time as Single
 
Private Sub CommandButton1_Click()
    Label1.Caption = Timer - Start_Time
End Sub
 
Private Sub UserForm_Click()
   Start_Time = Timer
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

VB Medir tiempo

Publicado por Rolando (3 intervenciones) el 26/04/2019 03:26:26
Correcto!!!
Muchas gracias
Que mi Dios lo bendiga
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar