---

Hvordan for man et ur til at gå med et andet tidspunkt

Lad som siger at det skal starte den

01-05-1969 14:00:00

Også bare begynde at gå derfra

---

Jens Andersen skrev:
> Hvordan for man et ur til at gå med et andet tidspunkt
>
> Lad som siger at det skal starte den
>
> 01-05-1969 14:00:00
>
> Også bare begynde at gå derfra

Måske noget i retningen af det her... Placér en Label, en CommandButton og
en Timer på en Form og skriv følgende kode ind:


Const StartDate = #5/1/69 2:00:00 PM#

Dim StartTimer As Single

Private Sub Command1_Click()
'Sættes, når uret skal starte:
StartTimer = Timer
End Sub

Private Sub Form_Load()
Command1.Caption = "Reset"
Timer1.Interval = 100
StartTimer = Timer
End Sub

Private Sub Timer1_Timer()
Dim dif As Single
Dim dat As Date
dif = Timer - StartTimer
While dif < 0
StartTimer = StartTimer - 86400
dif = Timer - StartTimer
Wend
dat = DateAdd("s", dif, StartDate)
Label1.Caption = Format(dat, "dd-mm-yyyy hh:mm:ss")
End Sub


- Bjarke Walling Petersen

---

Skide godt Bjarke

Det virker perfekt !

---

Takker

- Bjarke Walling Petersen