Function f_kalender_woche(id_datum As Date) As Integer
'Autor: Heiko Hommes
'Datum:
'Beschr: Diese Funktion gibt die Kalenderwoche zurück
'Aufruf: In einer Abfrage f_kalender_woche([FELD_DATUM])
'Rückgabe: Kaldenderwoche in Zahl
Dim vn_dat_ser As Long

vn_dat_ser = DateSerial(Year(id_datum + (8 - WeekDay(id_datum)) Mod 7 - 3), 1, 1)
f_kalender_woche = (id_datum - vn_dat_ser - 3 + (WeekDay(vn_dat_ser) + 1) Mod 7) \ 7 + 1

End Function