Access Makro : Liegt ein Datum in der Sommerzeit oder Winterzeit?

Wenn man in Access herausfinden will, ob ein Datum in der Sommer- oder Winterzeit liegt, so kann man folgendes Makro benutzen. Die Funktion gibt einen String zurück der entweder "Sommerzeit" oder "Winterzeit" lautet.

Function WinterSommer(Datum As Date) As String Dim d1 As Date Select Case Month(Datum) Case 1, 2, 11, 12 WinterSommer = "Winterzeit" Case 4, 5, 6, 7, 8, 9 WinterSommer = "Sommerzeit" Case 3 d1 = CDate("3/31/" + CStr(Year(Datum))) Do Until Weekday(d1) = vbSunday d1 = d1 - 1 Loop If d1 > Datum Then WinterSommer = "Winterzeit" Else WinterSommer = "Sommerzeit" End If Case 10 d1 = CDate("10/31/" + CStr(Year(Datum))) Do Until Weekday(d1) = vbSunday d1 = d1 - 1 Loop If d1 > Datum Then WinterSommer = "Sommerzeit" Else WinterSommer = "Winterzeit" End If Case Else WinterSommer = "Kein gültiges Datum" End Select End Function

Ps: Das Makro kann man natürlich auch in Excel benutzen, ist ja ganz normaler VBA Code.