Visual Basic FAQ

Как сделать секундомер?
Можно реализовать несколькими способами:

1. Разность двух дат

Option Explicit
Dim dtmTimeStart As Date
Dim dtmTimeStop As Date
Dim dtmTimeInter As Date

Private Sub Command1_Click()
Timer1.Interval = 1
dtmTimeStart = Time
Label2 = "Начало: " & Time
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub

Private Sub Timer1_Timer()
dtmTimeStop = Time
Label3.Caption = "Текущее время: " & Time
dtmTimeInter = Format(dtmTimeStop - dtmTimeStart, "hh:mm:ss")
Label1.Caption = "Прошло: " & dtmTimeInter
End Sub

Запись опубликована on 13.09.2008 at 9:06 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.