VB中是否提供了时区变换的方法？代码如何写？

Question

如题，小弟想用VB编写时区变换的代码，哪位大侠帮帮忙，谢谢。

Answer 1

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)  
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)  
Private 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  Private Sub Form_Load()  
    Dim LocalTime As SYSTEMTIME  
    Dim SysTime As SYSTEMTIME  
    '必须设为True，否则无法显示下面打印的字符  
    Me.AutoRedraw = True  
    '取得但前时区的时间  
    GetLocalTime LocalTime  
    '取得系统的时间。即格林尼治时间。  
    GetSystemTime SysTime  
    Me.Print  
    Me.Print "当地日期:" & LocalTime.wYear; "年" & LocalTime.wMonth & "月" & LocalTime.wDay & "日"  
    Me.Print "当地时间:" & LocalTime.wHour & ":" & LocalTime.wMinute & ":" & LocalTime.wSecond  
    Me.Print "格林尼治日期:" & SysTime.wYear; "年" & SysTime.wMonth & "月" & SysTime.wDay & "日"  
    Me.Print "格林尼治时间:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond  
End Sub