---

Hej

Er den ikke en der snip kode der viser hvordan man kan få et program det
at gøre en handling hver dag kl. 1200.


mvh. Mogens

---

> Er den ikke en der snip kode der viser hvordan man kan få et program det
> at gøre en handling hver dag kl. 1200.

prøv at se på schedule servicen.

---

> Er den ikke en der snip kode der viser hvordan man kan få et program det
> at gøre en handling hver dag kl. 1200.

Har også selv prøvet at finde en løsning til dette og det eneste jeg kunne
komme op med er en timer eller loop hvor du tjekker om tiden er (cirka) 1200
"hele tiden", altså hvert minut eller hvert sekund eller hver 10
milisekunder hvor præcist det nu end skal være...

f.eks, prop dette i en timer med 1 sekunds interval:

if timer >= 43200 and timer <= 43260 then 'hvis mere end 12:00:00 og
mindre end 12:01:00
'handling her...
end if

jeg er bare lidt i tvivl om der risikeres at det aldrig bliver triggeret
hvis computeren fryser eller lignende... og så kræver det nogen cpu tid at
køre sådan en loop igennem...

---

"wamingo" <foxtrot2@worldonline.dk> skrev i en meddelelse
news:bmjels$1aig$1@news.cybercity.dk...
> > Er den ikke en der snip kode der viser hvordan man kan få et program det
> > at gøre en handling hver dag kl. 1200.
>
> Har også selv prøvet at finde en løsning til dette og det eneste jeg kunne
> komme op med er en timer eller loop hvor du tjekker om tiden er (cirka)
1200
> "hele tiden", altså hvert minut eller hvert sekund eller hver 10
> milisekunder hvor præcist det nu end skal være...
>
> f.eks, prop dette i en timer med 1 sekunds interval:
>
> if timer >= 43200 and timer <= 43260 then 'hvis mere end 12:00:00 og
> mindre end 12:01:00
> 'handling her...
> end if

Njae - eller spar lidt på kræfterne. Sæt timer.interval til 32000 (cirka
max) og kig efter timetal.

Sub Timer1_Timer()
Static isDone As Boolean

If Hour(Now) = 12 And isDone = False Then
'[udfør handling]
isDone = True
ElseIf Hour(Now) <> 12 Then
isDone = False
End If

End Sub

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

> Njae - eller spar lidt på kræfterne. Sæt timer.interval til 32000 (cirka
> max) og kig efter timetal.
>
> Sub Timer1_Timer()
> Static isDone As Boolean
>
> If Hour(Now) = 12 And isDone = False Then
> '[udfør handling]
> isDone = True
> ElseIf Hour(Now) <> 12 Then
> isDone = False
> End If
>
> End Sub


what Jens said... ;)

---

"Mogens Dyhre Hansen" <mogens[removethis]@svend-bent.dk> wrote in
news:3f8a4481$0$94873$edfadb0f@dtext02.news.tele.dk:

> Er den ikke en der snip kode der viser hvordan man kan få et program det
> at gøre en handling hver dag kl. 1200.

Lav Timer (f.eks. Timer1):

Private Sub Timer1_Timer()
If Hour(Now) = 12 And Minute(Now) = 0 Then
'Kode her
End If
End Sub