Timer Countdown

[philwalker12]

im trying to make a scorekeeping program but im having problems with the timer. Its suppose to count down in minutes and seconds from 8 minutes until it gets to 0. i cant figure out how to get the seconds. I also need a button to stop and start the clock and reset it. can anyone help me?

[MarkT]

Option Explicit
Dim dteStart As Date
 
Private Sub Command1_Click()
    dteStart = DateAdd("n", 8, Now)
    Timer1.Enabled = True
    Timer1.Interval = 1000
    Label1.Caption = "8 00"
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Format((dteStart - Now), "n ss")
    If Label1.Caption = "0 00" Then
        Timer1.Enabled = False
    End If
End Sub

[philwalker12]

thanks! is it possible to stop the timer and then start it again where it left off?

[MarkT]

Check out the attached form for a full example.

[philwalker12]

thank you very much, it worked perfect

[philwalker12]

thank you very much, it worked perfect