Datumsüberprüfung
23.08.2003 09:02:56
Peter
Ich möchte überprüfen ob das Datum auf ein Wochenendtag fällt.
Wenn diese Bedingung, als Teil von mehreren Bedingungen, erfüllt ist, soll eine Reaktion erfolgen.
Irgendwas mache ich jedoch falsch?
Auf diese Art habe ich das Datum festgelegt: -ist OK
VonDatum = DateSerial(intVJahr, intVMonat, intVTag)
Zur Anzeige des Wochentages:- ist OK
lblAusgVDatum.Caption = Format(VonDatum, "dddd")
~begin~
Sub Überprüfung()
Select Case LstUrl.ListIndex
Case Is = 0 And Weekday(VonDatum, vbMonday) > 5
MsgBox Wochenende
End Select
End Sub
~end~
Vielen Dank
Peter
Anzeige