if time kleiner gleich 23:59:59
christian
ich hab ein problem. ich möchte gerne eine Auswahl treffen:
wenn am z.B. 01.01.2004 ab 22:00:00 Uhr Nachtschicht anfängt, dann arbeiten diese ja für den 02.01.2004, deswegen soll das Datum um eins erhöht werden.
da aber die Nachtschicht bis 06:00:00 Uhr geht soll ab 23:59:59 das Datum wieder normal angezeigt werden.
Da ich mit meiner gerad programmierten version, das Problem hab, dass
Time NICHT kleiner gleich 23:59:59 sein kann...
mit welchem vergleichswert geht so etwas?
P.S.
Sub date_change()
Dim zeit As Integer
Dim tag As Integer
zeit = Time
tag = date
If zeit > 22:00:00 And zeit <= 23:59:59 And Then tag = tag+1
Else tag = date
Cells(1,1) = tag
End Sub