如何显示选定时区的当前时间？

Question

如何显示当前时间与选择时区而不是服务器TZ？ （VB）

Answer 1

使用任何TZ;只需使用该行添加小时：

anytime = DateAdd("H", HOUR_DIFFERENCE, Now()) 

Answer 2

Public Declare Function GetTimeZoneInformation Lib "kernel32" Alias 
"GetTimeZoneInformation" (lpTimeZoneInformation As 
TIME_ZONE_INFORMATION) As Long 

Public Type TIME_ZONE_INFORMATION 
Bias As Long 
StandardName(32) As Integer 
StandardDate As SYSTEMTIME 
StandardBias As Long 
DaylightName(32) As Integer 
DaylightDate As SYSTEMTIME 
DaylightBias As Long 
End Type 

GMT = systemtime + bias