IN: calendar
USING: alien kernel math win32-api ;

: gmt-offset
    "TIME_ZONE_INFORMATION" <c-object> dup GetTimeZoneInformation drop
    dup TIME_ZONE_INFORMATION-Bias swap TIME_ZONE_INFORMATION-DaylightBias +
    60 /f neg ;