PDA

Vollständige Version anzeigen : "Zwischen" Anweisung in VBA


hp
10.06.2001, 20:44
Hallo NG,
wie sage ich in VBA, wenn es zwischen 00:00 Uhr und 2:00 Uhr morgens ist, dann eine MsgBox ausgeben ?
Mit folgendem Code wird die MsgBox immer angezeigt ???
Private Sub Form_Load()
Dim Zeit1
Dim Zeit2
Zeit1 = #12:00:01 AM#
Zeit2 = #2:00:00 AM#
If Time > Zeit1 < Zeit2 Then
MsgBox "Es ist kurz nach Mitternacht"
End If

End Sub

kama
10.06.2001, 20:57
Ich nehme mal an das deine MsgBox aus einem Formular gestartet wird.
Du müßtest dan an die Eigenschaft/ereignis>>bei Zeitgeber folgende Prozedur binden
If Time () between Zeit1 and zeit2 then
MsgBox......
end if
Bei zeitgeberinterwall stellst du eine sinnvolle zeit ein (in Mllisekunden) wie Oft sich die Zeit geholt werden soll
zb 60000 für jede Minute
Versuchsmal
kama

hp
10.06.2001, 21:12
Hallo Kama,

danke, aber Access bemängelt mir das Wort BETWEEN in der Syntax
HP

kama
10.06.2001, 21:43
Zurecht, kennt nicht oder ich kann das nicht!
DSu mußt es also etwas komplizerter machen

Zeit=time
Iff zeit < 12:00 then Exit funktion

If zeit < 2:00 then
MsgBox......
else
Exit
end if
Du kannst dir ja noch mal den Syntax für if
in der Onlinehilfe anschauen

hp
11.06.2001, 09:53
Hallo Kama,

danke, klappt jetzt

Gruß
Hans-Peter