AW: Montag der Kalenderwoche x
FP
Hallo Roland,
diese Funktion gibt Dir das Datum des Montags der gesuchten KW zurück:
Function KW2Montag(Optional KW As Byte, Optional Jahr As Integer) As Date
KW = IIf(KW * -(KW < 54) > 0, KW, 1)
Jahr = IIf(Jahr < 1901, Year(Date), Jahr)
KW2Montag = DateSerial(Jahr, 1, KW * 7) - 3 - DateSerial(Jahr, 1, 2) Mod 7
End Function
Wird weder die KW noch das Jahr übergeben, ermittelt die Funktion den Montag der KW 1 des aktuellen Jahres.
Den Sonntag erhältst Du dann, indem Du 6 Tage zum derart ermittelten Datum addierst.
Servus aus dem Salzkammergut
Franz