folgendes Problem:
Mit dieser Formel (nicht von mir, irgendwo aus dem Netz, whrscheinlich von hier), wird von einem Datumsdie Kalenderwoche nach DIN ermittelt:
Public Function DINWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINWeek = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function
Die Formel funktioniert prima, nur gibt es folgendes Problem: Nach DIN und auch nach dieser Formel ist z.Bsp. der 30. und 31.12. 2002 1 Kalenderwoche in 2003!
Ich muss auf das Jahr nach Kalenderwoche in meinen Daten Bezug nehmen. Üblicherweise kann man ja dann einfach das yyyy aus dem Datum herausnehmen, aber für diese beiden Tage geht das eben nicht.
Weiss jemand, wie ich diese Formel so aufpeppen kann, dass auch die DIN-Jahreszahlen korrekt ausgegeben werden.
Bei mir reicht es nicht dazu ...
Bin für jeden Tipp dankbar.
Markus