как отобразить текущее время с выбранным часовым поясом?

Question

как отобразить текущее время с выбранным часовым поясом вместо сервера TZ? (VB)

Answer 1

использовать любой ТЗ; просто используйте эту строку, чтобы добавить часы:

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