Guten Abend zusammen,
ich verwende zur Berechnung des Montags in einer Kalenderwoche die
bekannte Funktion:
KWMon = DateSerial(TextBox2.Value, 1, 1) + (TextBox1.Value - 1) * 7
KWMon = KWMon + 1 - Weekday(TextBox1.Value, 2)
If Format(KWMon, "ww", 2, 2) TextBox1.Value Then KWMon = KWMon + 7
Nun ist mir aufgefallen, dass dabei in der Kalender 53/2017 nicht der 18.12.2017
sondern der 24.12.2017 gezeigt wird.
Ich komm leider nicht drauf, warum dieser Fehler auftritt.
Weiß von euch jemand ne Lösung?
Danke und Gruß
A.