Function BeginSZ(Jahr As Integer) As Date
Dim i As Integer
For i = 1 To 31
  If Weekday(i & ".3." & Jahr) = 1 Then BeginSZ = CDate((i & ".3." & Jahr))
Next
End Function
 
Function BeginWZ(Jahr As Integer) As Date
Dim i As Integer
For i = 1 To 31
  If Weekday(i & ".10." & Jahr) = 1 Then BeginWZ = CDate((i & ".10." & Jahr))
Next
End Function