Felder mit Datum und Uhrzeit vergleichen?

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang inkl. Uhrzeit im Format (TT.MM.JJJJ HH:MM:SS)
Spalte B = Datumsende inkl. Uhrzeit im Format (TT.MM.JJJJ HH:MM:SS)
Spalte C = Die Dauer bzw. Differenz von Datumsanfang inkl. Uhrzeit und Datumsende inkl. Uhrzeit im Format (HH:MM:SS)
Nun ist das Problem. dass man mit vorgegeben Zeitfenstern vergleichen muss
Also wenn das Datum in Spalte A dem Wochentag DONNERSTAG entspricht darf dir Uhrzeit von Anfang und Ende nur zwischen DONNERSTAG 01:00:00 Uhr und DONNERSTAG 05:00:00 Uhr liegen, wenn JA Zeile = grün wenn NEIN Zeile = rot
Wenn das Datum in Spalte A dem Wochentag SAMSTAG entspricht darf die Uhrzeit von Anfang und Ende nur zwischen SAMSTAG 18:00 Uhr und SONNTAG 08:00 Uhr sein, wenn JA Zeile = grün wenn NEIN Zeile = rot
An allen anderen Wochentagen wird jede Zeile = grün.
Es geht also um die Zeitfenster in de Wochentag DO und SA.
Wie würde man das bewerkstelligen mittels einem Makro?!?!
Vielen Dank schonmal im Voraus!
Liebe Grüße
Lauren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim a, e, d As Double Const do_a = 4.04167 Const do_e = 4.20833 Const do_d = 0.16667 Const sa_a = 6.75 Const sa_e = 7.33333 Const sa_d = 0.58333 For i = 1 To 14 a = Round(Weekday(Cells(i, 1), vbMonday) + (Cells(i, 1) - Int(Cells(i, 1))), 5) e = Round(Weekday(Cells(i, 2), vbMonday) + (Cells(i, 2) - Int(Cells(i, 2))), 5) d = Round(Cells(i, 2) - Cells(i, 1), 5) If a >= do_a And e = sa_a And e

Hallo Lauren,
zum besseren Verständnis:
Ich habe einfach aus jedem Datum den Wochentag extrahiert (1-7), dazu als Nachkommawert die enthaltenen Stunden (1 h = 1/24) addiert.
Wenn ich nun einen Wert habe, der größer dem Wert für Do, 1:00 und kleiner als Do, 5:00 habe, dann ist das wahrscheinlich ein Treffer. Um auszuschließen, dass das zweite Datum wochenweise verschoben ist, lasse ich in der dritten Bedingung prüfen, ob die Dauer kleiner als 4 Stunden (4/24) ist. Wenn diese 3 Aussagen zutreffen, dann ist es definitiv ein Treffer.
Sollten die Bedingungen nicht zutreffen, erfolgt die gleiche Prüfung nochmal für den Samstag-Sonntag-Zeitraum. Wenn das zutrifft, dann wieder Treffer, nur wenn das auch nicht passt, dann ist das Datum außerhalb.
Gruß
David

Beliebteste Forumthreads (12 Monate)

Felder mit Datum und Uhrzeit vergleichen?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

342 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Felder mit Datum und Uhrzeit vergleichen?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

342 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread