2006-09-01 17:45:00 -04:00
|
|
|
IN: calendar
|
|
|
|
|
USING: alien kernel math win32-api ;
|
|
|
|
|
|
2006-09-03 18:01:12 -04:00
|
|
|
: gmt-offset
|
|
|
|
|
"TIME_ZONE_INFORMATION" <c-object> dup GetTimeZoneInformation drop
|
|
|
|
|
dup TIME_ZONE_INFORMATION-Bias swap TIME_ZONE_INFORMATION-DaylightBias +
|
|
|
|
|
60 /f neg ;
|
|
|
|
|
|
