:'( det virker ikke HJÆLP !!!!!!!!!!!!!!!!!!!!!!!!!

Private Sub Timer1_Timer()
  Static JobDone As Boolean
  If Format(Weekday(Date), "DD", vbMonday) = 5 Then
    If JobDone = False Then
      If Now >= Date + #8:04:00 PM# Then
        JobDone = True
        MsgBox "Dav"
      End If
    End If
  Else
    JobDone = False
  End If
End Sub

/AC

Jeg kom lige til at ændre tidspunktet.


/AC

Lige et lille tip: Lad være med at skrive sådan noget som du har gjort i emne. Det er meget bedre hvis du skriver en meget kort beskrivelse af problemet, så er det lettere for andre at se om det er noget de kan svare på...


Hilsen Mark Jensen

DNA er naturens array

Er der ikke en venlig sjæl der kan sige mig hvad der er galt med denne kode ??
Private Sub Timer1_Timer()
Static JobDone As Boolean
If JobDone = False Then
If Now = (Format(Weekday(Date), "DD", vbMonday) = 5 + #7:57:00 PM#) Then 'Ændre evt. datoen
JobDone = True
MsgBox ("Dav")
End If
End If
End Sub

Den her kode virker
<pre>
Label1.Caption = Time
Static JobDone As Boolean
If JobDone = False Then
If (Format(Weekday(Date), "DD", vbMonday)) = 5 And Now >= (#8:11:00 PM#) Then 'ved brug af and tjekker den op det er fredag (5) og om det kl. er 8:11:00 i dette tilfælde begge kritier skal være opfyldt før msgboxe bliver vist
JobDone = True
MsgBox ("Dav")
End If
End If
</pre>

ved brug af and tjekker den op det er fredag (5) og om det kl. er 8:11:00 i dette tilfælde begge kritier skal være opfyldt før msgboxe bliver vist

mvh.
Thomas Chriestensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

Mange tak alle sammen

Og sørg nu for at få nogle UP.


/AC

Og sørg nu for at få nogle UP.


/AC

Ja men jeg har et spørgsmål til, hvis der er nogen der gider svare
nu har jeg denne kode

Private Sub Timer1_Timer()
Static JobDone As Boolean
If Format(Weekday(Date), "DD", vbMonday) = Text1.Text + Now >= Date + #7:00:00 PM# Then istedet vil jeg have den til at hente tiden fra Text2 men det virker ik, det virker med datoen
If JobDone = False Then
JobDone = True
MsgBox "Dav"
End If
Else
JobDone = False
End If
End Sub

Og sørg nu for at få nogle UP.


/AC
Ja men jeg har et spørgsmål til, hvis der er nogen der gider svare
nu har jeg denne kode

Private Sub Timer1_Timer()
Static JobDone As Boolean
If Format(Weekday(Date), "DD", vbMonday) = Text1.Text + Now >= Date + #7:00:00 PM# Then istedet vil jeg have den til at hente tiden fra Text2 men det virker ik, det virker med datoen
If JobDone = False Then
JobDone = True
MsgBox "Dav"
End If
Else
JobDone = False
End If
End Sub

denne kode virker
<pre>
Private Sub Timer1_Timer()
Label1.Caption = Time
Static JobDone As Boolean
If Format(Weekday(Date), "DD", vbMonday) = Val(Text1.Text) Then
If JobDone = False Then
If Now >= Val(Text2.Text) Then
JobDone = True
MsgBox "Dav"
End If
End If
Else
JobDone = False
End If
End Sub
</pre>
i text1 skriver du bare tallet på dagen
i text2 skriver du f.eks #23:20:55 PM# eller #11:20:55 PM#
de reagere på samme tidpunkt

val laver en string(tekst) om til en tal variable så du kan regne med den og sammeligen den med tal

mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41