countdown

Jubiiiiii her er et ur jeg har lavet i Delphie:

Option Explicit
Dim starttid As Long
Dim sek As Long

Private Sub cmdVisTid_Click()
    lblUr.Caption = Time$
    \' Time$ er systemuret
End Sub

Private Sub cmdStart_Click()
    Timer1.Enabled = True
    \'Slår Timer1 til
        starttid = Timer
        \'Antal sekunder efter midnat knappen blev presset
End Sub

Private Sub cmdStop_Click()
    Timer1.Enabled = False
    \'Slår Timer1 fra
End Sub

Private Sub cmdReset_Click()
    If optDigUr.Value = True Then
    lblUr.Caption = Format$(0, \"hh:mm:ss\")
    \'HVIS Digital funktionen er markeret slåes denne til
        Timer1.Enabled = False
        \'Uden denne ville lblUr bare vise 00:00:00 et par
        \'sekunder hvorefter den ville fortsætter
Else
        sek = Timer - starttid
        lblUr.Caption = Format$(0, \"ss\")
        \'Ellers slåes stopur til og tiden vises i formatet SekunderSekunder
    Timer1.Enabled = False
    \'Uden denne ville lblUr bare vise 00 et par
    \'sekunder hvorefter den ville fortsætter

End If
End Sub

Private Sub Luk_Click()
End
End Sub

Private Sub optDigUr_Click()
    If optDigUr = True Then lblUr.Caption = Format$(0, \"hh:mm:ss\")
    \' Fortæller at hvis det skal værer digitalt skal formatet værer HourHour MinutMinut SecSec
   
End Sub

Private Sub optSekUr_Click()
    If optSekUr = True Then lblUr.Caption = Format$(0, \"ss\")
End Sub

Private Sub Timer1_Timer()
    If optDigUr.Value = True Then
    lblUr.Caption = Time$
    \'HVIS Digital funktionen er markeret slåes denne til.
Else
    sek = Timer - starttid
    lblUr.Caption = sek
    \'HVIS Digital funktionen ikke er markeret slåes stopur
    \'automatisk til da formen så kan regne ud at denne må
    \'værer markeret, da der kun er 2 mulige.
End If
End Sub


-------------------------

Ved overnævnte funktione:
sek = Timer - starttid

tager den \"Tid siden midnat - tid siden midnat da den begyndte\" og aflevere det så i SS = sekunder :)

Se uret her:
www.123ferie.dk/ur.exe

den tæller jo ikke ned men op

jeg har selv løst problemet :)

Det er sgu da bare at vende det om!