Access - Datum aus Kalenderwoche erruieren

Wie man aus einem Datum die entsprechende Kalenderwoche errechnet wurde bereits früher in einem Artikel erwähnt [1]. Nun möchten Sie aber aus einer Kalenderwoche das entsprechende Datum errechnen. Dies ist nicht genauso einfach wie umgekehrt. Aber nichts desto trozt, es ist möglich. Ausgegeben wird der jeweilige Montag der entsprechenden Woche. Sie müssen erst eine Funktion erstellen, die Sie dann weiterverwenden können. Gehen Sie folgendermassen vor:

Erstellen Sie in der entsprechenden Access-Datenbank ein neues Modul und fügen Sie den folgenden Code ein:

Public Function Fkt_KWMon(ArgKW as Byte, Optional ArgJahr)

Dim KWMon as Date

If IsMissing (ArgJahr) Then ArgJahr = Year(Date)

KWMon = DateSerial (ArgJahr, 1, 1) + (ArgKW - 1)*7

If Format(KWMon, "ww", 2, 2) <> ArgKW Then KWMon=KWMon+7

Fkt_KWMon = KWMon

End Function

Nun, steht Ihnen die Funktion "Fkt_KWMon" in dieser Datenbank zur Verfügung. Wenn Sie beispielsweise in einer Abfrage auf das Feld das die Kalenderwoche enthält (Feldname hier: KW) bezug nehmen möchten, geben Sie in einem leeren Feld folgenden Ausdruck ein:

Dieses Feld wird dann "Montag" heissen und Ihnen das Datum des Montags in der entsprechenden Kalenderwoche liefern.