kann mir jemand sagen was ich wo einstellen muß, damit die Funktion zur Umwandlung eines Datums in die Kalenderwoche funktioniert?
Gruß aus Bayern
Mike
Function DINKW(Datum)
Dim tmp As Variant
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function