Обратный Таймер!

[TiG]

Уважаемые продвинутые программеры, подскажите способы обратного таймера с временным форматом (только минуты и секунды, т.е. до 60 минут!)
Я смог сделать только чтобы вычиталось по одной секунде, но всё это в формате типа 600-1.... и т.д. Хотелось бы задавать и наблюдать вот такой формат: 16:27.

Вот текст который у меня:
Dim T As Long
Private Sub Command1_Click()
If Text1 < 3601 Then
Command1.Visible = False
Command2.Visible = True
Timer1.Enabled = True
Else
Form2.Show
End If
T = Text1.Text
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Visible = False
Command1.Visible = True
End Sub
Private Sub Timer1_Timer()
T = T - 1
If T < 0 Then
T = 0
Timer1.Enabled = False
End If
Text1.Text = T
End Sub

[GSerg]

Ну и правильно всё. Только вывод времени на форму будет в виде

(T \ 60) & ":" & T - T \ 60

[TiG]

Спасибо большое, но есть одно но!
7:987 - это что за время такое. И кайф чтобы вводить тоже надо было не в количестве секунд а в формате времени 12:05. Проблемма в том что нужно перевести в шестидесятиричную систему наверное.

[corgi]

вот так вот наверно правильней

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

(T \ 60) & ":" & ((T \ 10) Mod 6) & (T Mod 10)


[corgi]

или можно совсем красиво (с 2-мя цифрами при минутах)

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

((T \ 60) \ 10) & ((T \ 60) Mod 10) & ":" & ((T \ 10) Mod 6) & (T Mod 10)


[basicom]

а можно и вот так:
label.Caption = (23 - Hour(Time)) & ":" & (59 - Minute(Time)) & ":" & (59 - Second(Time))'Поместить в таймер
а время задавать
Time=#12:00:00#