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

siehe auch:
Datum ermitteln aus gegebener Kalenderwoche