таймер обратного отсчета....

[Yurik]

Привет всем!!!
Вот понадобился мне таймер обратного отсчета, и вот я его делаю делаю а выходит что то не то.....

заранее известно что надо 2 минуты отсчитать в обратном направлении вот то что я предпринял

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

Private Sub Timer2_Timer()
Label1.Caption = Format(2 - (Time - TimeStart), "hh.mm.ss")
End Sub

но выходит байдень.....люди помогите ПЛИЗ!

[hCORe]

По системе единиц СИ,
2 часа = 120 минут = 7200 секунд = 7200000 миллисекунд. Так?
Если ты поставил интервал таймера в 1000 мс, то вычитай значение не из 2, а из 7200000. Если ты поставил интервал в 60000 мс (1 минута), то вычитай значение из 7200.

[Yurik]

Не мне нужен не секундомер обратного отсчета, мне нужен тамер с минутами и секундами ..... и чтобы отсчет шел в обратном направлении
т.е. чтобы я видел в лейбле - 01:49

[MEMBER]

Секунды в минуты и часы:

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

Public Function GetTime(ByVal Seconds As Long) As String
    If Seconds <= 0 Then
        GetTime = "00:00:00"
        Exit Function
    End If
   
    Dim Hour As Single, min As Single, Sec As Single
   
    Hour = Seconds / 60 / 60
    Sec = Seconds Mod 60
    min = (Hour - Int(Hour)) * 60
 
    GetTime = Format(Int(Hour), "00") & ":" & Format(Int(min), "00") & ":" & Format(Int(Sec), "00")
End Function

[Yurik]

2 MEMBER:

Спасибо то что надо ......