In Access:
DatSeriell([Jahr];1;4)+[KW]*7-7-(DatSeriell([Jahr];1;2) Mod 7)
Die Felder [Jahr] und [KW] sind zu ersetzen durch ihre Feldnamen.
In Excel:
=DATUM(A2;1;4)+A1*7-7-REST(DATUM(A2;1;2);7)
Der Bezug A1 verweist auf ihre Zelle mit dem Kalenderwochenwert und der Bezug A2 verweist auf ihre Zelle mit dem Jahreswert.
In VBA:
Public Function FirstDateOfCalWeek(cWeek As Byte, Optional cYear As Variant) As Date
If IsMissing(cYear) Then cYear = Year(Date)
FirstDateOfCalWeek = DateSerial(cYear, 1, 4) + cWeek * 7 - 7 - (DateSerial(cYear, 1, 2) Mod 7)
End Function
Ausgegangen wird von den europäischen Standards, d.h.:
- der erste Tag der Woche ist der Montag
- die erste Woche eines Jahres ist jene, die mindestens 4 Tage hat