Stop ur

Prøv følgende på en form hvor du samtidig har tilføjet en timer med navnet timer1:

Dim dStop As Date

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 500
    dStop = Now + TimeValue("00:01:00")
End Sub

Private Sub Timer1_Timer()
    If (dStop - Now) < 0 Then
        Timer1.Enabled = False
        MsgBox "Stop!"
    Else
        MsgBox DateDiff("s", Now, dStop)
    End If
End Sub

Stopuret/nedtælligen er her sat til 1 minut.
Du skriver ikke noget om nøjagtigheden af stop-uret, men ovenstående ville jeg *ikke* benytte til tidskritiske rutiner. Her er timeren alt for upræcis.

....øhh
Tak for svaret buhl det virker men det jeg skal bruge er et ur der kan vise en rest tid hele tiden på skærmen i format
"hh:mm:ss" jeg håber du kan hjælpe,nøjagtigheden skal være 1 sek.

Vi prøver igen. Denne gang tilføjer du en textbox udover en timer.

Dim dStop As Date

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 500
    dStop = Now + TimeValue("00:01:00")
End Sub

Private Sub Timer1_Timer()
    Dim dDiff As Date
    dDiff = (dStop - Now)
    If dDiff < 0 Then
        Timer1.Enabled = False
        MsgBox "Stop!"
    Else
        Text1.Text = Format(DatePart ("h", dStop - Now), "00") & ":" & Format(DatePart("n", dStop - Now), "00") & ":" & Format(DatePart("s", dStop - Now), "00")
    End If
End Sub

Med hensyn til nøjagtigheden så burde ovenstående kunne opfylde +/- 1 sekund i opdateringen.

Placer en timer og en label på din form med navnene timer1 og label1, sæt timerens interval til 1000 (1 sec.) og sæt denne kode ind så tæller den ned fra 1.30.00

'Module level variabler
Dim tid As Variant
Dim interval As Variant

Private Sub Form_Load()

    tid = TimeSerial(1, 30, 0)
    interval = TimeSerial(0, 0, -1)
End Sub

Private Sub Timer1_Timer()
If tid <> "00:00:00" Then
    tid = tid + interval
      Label1.Caption = tid
Else
Timer1.Enabled = False
End If
End Sub

Hej buhl det er lige sådan en jeg har brug for , men kan man ikke lave "00:01:00" om til en variabel

Jo sagtens. Placer en

Dim sStart as string

i toppen af programmet.

Udskift Form_load med

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 500
    sStart="00:01:00"
    dStop = Now + TimeValue(sStart)
End Sub