Ich habe folgendes in meinem Makro um die Aktuelle Kalenderwoche zu ermitteln.
DatePart("ww", Now)
Das hat im Jahr 2004 auch gut funktioniert.
Leider liefert mir diese Zeile heute die KW 2 obwohl doch die KW1 ist.
Woran kann das liegen ?
Function DIN_KW(Datum As Date) As Integer
' von Christoph Kremer, Aachen
Dim t&
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function