Daylight Savings Time detection

[Comintern]

Just found this trolling through the CodeBank and thought I'd post an API version of this in case anyone else needs it (much easier\faster).

Private Type TimeZoneInfo
    Bias As Long
    StandardName(63) As Byte
    StandardDate(7) As Integer
    StandardBias As Long
    DaylightName(63) As Byte
    DaylightDate(7) As Integer
    DaylightBias As Long
End Type
 
Private Const TIME_ZONE_ID_DAYLIGHT = 2
 
Private Declare Function GetTimeZoneInformation Lib "kernel32" (uTZ As TimeZoneInfo) As Long
 
Private Function IsDLSavings() As Boolean
 
    Dim uInfo As TimeZoneInfo, lReturn As Long
    
    lReturn = GetTimeZoneInformation(uInfo)
 
    If lReturn = TIME_ZONE_ID_DAYLIGHT Then
        IsDLSavings = True
    End If
 
End Function