/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Ur
Fra : Jens Andersen


Dato : 07-08-01 17:23

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



 
 
Bjarke Walling Peter~ (07-08-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 07-08-01 21:49

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



Jens Andersen (07-08-2001)
Kommentar
Fra : Jens Andersen


Dato : 07-08-01 22:06

Skide godt Bjarke

Det virker perfekt !



Bjarke Walling Peter~ (07-08-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 07-08-01 22:22

Takker

- Bjarke Walling Petersen



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste