Moin zusammen,
ich habe in einem Formular folgenden Code:
If DTPicker1.Value > Label2.Caption Then
MsgBox "Ein Zeitpunkt in der Zukunft kann nicht gewählt werden!"
Exit Sub
End If
If DTPicker1.Value = Label2.Caption Then
If DTPicker2.Value > Label29.Caption Then
MsgBox "Ein Zeitpunkt in der Zukunft kann nicht gewählt werden!"
Exit Sub
End If
End If
Das Label2 wird wie folgt beschrieben:
Label2.Caption = Format(Date, "dd.mm.yyyy")
Und das Label29 so:
Label29.Caption = Format(Now, "HH:mm")
Das ganze funktioniert ganz gut. Jetzt ist mir aufgefallen das der Code nur nach Tagen filtert. Also ich kann den 01.08. wählen aber nicht den 31.07.
Kann mir einer helfen?
Gruß
Tim