'================================================================
'= 協定世界時間とローカル時間との分差
'=    (GetTimeZoneInformation.bas)
'================================================================

' 日付と時刻を定義する構造体
Type SYSTEMTIME
    wYear         As Integer
    wMonth        As Integer
    wDayOfWeek    As Integer
    wDay          As Integer
    wHour         As Integer
    wMinute       As Integer
    wSecond       As Integer
    wMilliseconds As Integer
End Type

' タイムゾーンを定義する構造体
Type TIME_ZONE_INFORMATION
    Bias             As Long          '協定世界時(UTC)と現地時間の分差
    StandardName(32) As Integer
    StandardDate     As SYSTEMTIME
    StandardBias     As Long
    DaylightName(32) As Integer
    DaylightDate     As SYSTEMTIME
    DaylightBias     As Long
End Type

' タイムゾーン情報を取得
Declare Function Api_GetTimeZoneInformation& Lib "kernel32" Alias "GetTimeZoneInformation" (lpTimeZoneInformation As TIME_ZONE_INFORMATION)

Var tzi As TIME_ZONE_INFORMATION
Var Ret  As Long
    
' タイムゾーン情報を取得
Ret = Api_GetTimeZoneInformation(tzi)
    
' 協定世界時間とローカル時間との分差を表示
Print "協定世界時間とローカル時間との分差：" & Str$(tzi.Bias) & "分"

Stop
End