/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177552
Tips :
31968
Nyheder :
719565
Indlæg :
6408847
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.