Public Function CalWeekDay(nWeek As Long, _
                                       Optional nYear As Long, _
                                       Optional nFirstDay As VbDayOfWeek = _
                                       vbUseSystemDayOfWeek, _
                                       Optional nWeek1 As WoTyp = _
                                       knERSTE_4_TAGE) As Date
'******************************************************************************
' Berechnung des ersten Kalendertages zur Kalenderwoche
' Für den Typ der ersten Woche eines Jahres können folgende Formen
' ausgewählt werden:
'              knErsterTag             =1
'              knErsteVierTage         =2
'              knErsterMontag          =3
' Die erste Woche des Jahres wird bei fehlender Angabe von nWoTyp mit der Woche
' gezählt, die mindestens 4 Tage des Jahres enthält.
' Im Ergebnis der Funktion wird das Datum des ersten Kalendertages der Woche
' bereitgestellt.
'******************************************************************************
30       Dim dTag As Date
40       Dim nWo As Long
50
60       If nFirstDay = vbUseSystemDayOfWeek Then
70          nFirstDay = IIf(GetBin(GetSetting("Kalender", "Steuerung", _
  "Ansichten", "001"), 2), vbMonday, vbSunday)
80       End If
90       If nYear = 0 Then nYear = Year(Date)
100      dTag = DateAdd("d", nWeek * 7, DateSerial(nYear, 1, 1))
110      nWo = Int(CalWeek(dTag, nWeek1) / 10000)
120      dTag = DateAdd("ww", nWeek - nWo, dTag)
130      Do While Weekday(dTag, nFirstDay) > 1
140         dTag = DateAdd("d", -1, dTag)
150      Loop
160      CalWeekDay = dTag
170
180      Exit Function