ebolo | |
|
Re: Determinar el tiempo transcurrido - 2005-01-06 19:50 - Respuesta 2
Hola de nuevo, prueba esto:
Quote:
Option Explicit
Dim Ahora1, Ahora2 As Date
Private Sub Command1_Click()
Ahora1 = Time
Text2.Text = "Empieza en:" & Ahora1
If Text1.Text = "" Then Exit Sub
If Text1.Text = Text1.Tag Then Exit Sub
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Ahora2 = Time
Text2.Text = Text2.Text & vbCrLf & "Termina en:" & Ahora2
Text3.Text = "Han transcurrido " & DateDiff("h", Ahora1, Ahora2) & " horas, " & DateDiff("m", Ahora1, Ahora2) & " minutos y " & DateDiff("s", Ahora1, Ahora2) & " segundos"
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1.Caption = "FORMATO HH:MM:SS"
Text1.Text = "00:00:00"
Text1.Tag = Text1.Text
End Sub
Private Sub Timer1_Timer()
Text1.Text = DateAdd("s", -1, Text1.Text)
End Sub
Saludos.
| |
|
|