|
hola, puedes hacer lo siguiente:
1) Dim inicio As Date ' declaras una variable tipo fecha
2) creas 2 botones, 1 timer y 4 etiquetas (label)
3)copia lo siguiente:
Private Sub Command1_Click()
Label1.Caption = Format(Now, "hh:mm:ss AMPM")
inicio = Label1.Caption
End Sub
Private Sub Command2_Click()
Label2.Caption = Format(Now, "hh:mm:ss AMPM")
Label3.Caption = Format(Now - inicio, "hh:mm:ss")
End Sub
Private Sub Timer1_Timer()
Label4.Caption = Time
End Sub
en el label4 se va mostrando la hora actual, en el label1 se muestra la hora en que se va a empezar a cronometrar, el label2 se muestra la hora en que se termina de cronometrar y en el label3 se muestra el tiempo transcurrido entre los dos clic..
Espero te sirva, saludos
|
