Public Function Sommerzeit(datum As DateTime) As Boolean
 
        'Gibt True zurück falls es sich um ein Datum in der Sommerzeit der 
        ' Zeitzone "Berlin" handelt
 
        Dim zz_berlin As TimeZoneInfo = Nothing
        Dim zz_alle As New ArrayList
        zz_alle.AddRange(TimeZoneInfo.GetSystemTimeZones.ToArray)
 
        For Each it In zz_alle
            If it.ToString.Contains("Berlin") Then zz_berlin = it
        Next
 
        Return zz_berlin.IsDaylightSavingTime(datum)
 
    End Function