如何顯示選定時區的當前時間？

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