Как сосздать таймер отсчета времени?

[Эдуард]

Уважаемые коллеги! Подскажите пожалуйста - как сделать так, чтобы на форме высвечивалось время оставшееся для работы с приложением

Расчетное время работы с приложением 1:30:00

[alibek]

Ложишь на форму таймер, задаешь Interval=1000, Enabled=True (хотя можно и Interval=500). Затем пишешь такой код:

Код: Выделить всё

Option Explicit
...
Private TimerValue As Single
Private Const TimerTotal As Single = 5400 '(5400с =1ч 30м)
...
Private Sub Form_Load()
TimerValue = TimerTotal
...
End Sub
...
Private Sub tmrCountdown_Timer()
  TimerValue = TimerValue - tmrCountdown.Interval/1000
  If TimerValue <= 0 Then
    tmrCountdown.Enabled = False
    MsgBox "Время вышло!"
    End
    Exit Sub
  End If
  lblCountdown.Caption = "Осталось секунд: " & TimerValue
End Sub


[XATTAB]

Код: Выделить всё

Option Explicit

Private CountDown As Date
Private TotalTime As Date

Private Sub Form_Load()
'Формат даты чч:мм:сс
TotalTime = Format("00:00:05", "Long Time")
'Ставим отсчет на пять минут
CountDown = Time + TotalTime
End Sub

Private Sub Timer1_Timer()
Me.Caption = "Осталось время " & Format(CountDown - Time, "Long time")
If CountDown <= Time Then
   Timer1.Enabled = False
   MsgBox "Приплыли.", vbOKOnly
End If
End Sub