Excel bietet die Funktion Kalenderwoche() an, diese ist jedoch nicht korrekt. Die Funktion geht davon aus, dass die erste Woche des Jahres mit dem 1. Januar beginnt. Laut DIN 1330/ISO 8601 fällt die erste KW jedoch auf die Woche die mindestens vier Tage des neuen Jahres beinhaltet.
Mit der VBA Funktion DatePart lässt sich die richtige KW ausgeben.
DatePart gibt einen bestimmen Teil eines Datum wieder.
DatePart (intervall, date, [firstdayofweek], [firstweekofyear])
- interval gibt das Interval wieder, indem die Zeit wiedergegeben werden soll (bspw. Monat, Quartal, Woche, Stunde)
- date ist der Datumswert der ausgewertet werden soll
- firstdayofweek gibt den ersten Tag der Woche wieder (vbMonday), wird dieser Wert weggelassen, wird in Excel angenommen dass der erste Tag ein Sonntag ist
- firstweekofyear, Excel nimmt an, dass dies der 1. Januar ist, korrekt ist: vbFirstFourDays
Keine Kommentare:
Kommentar veröffentlichen