13.05.1999
Eine Funktion, um die Kalenderwoche eines bestimmten Datums zu berechnen: Function KW(d As Date) As Integer t = DateSerial(Year(d + (8 - WeekDay(d)) Mod 7 - 3), 1, 1) KW = (d - t - 3 + (WeekDay(t) + 1) Mod 7) \ 7 + 1 End Function