取得時區時間

這是取得中國時區時間，其它時間輸入其id即可取得

Dim d2 As DateTime = DateTime.UtcNow.AddHours(TimeZoneInfo.FindSystemTimeZoneById("China Standard Time").BaseUtcOffset.Hours)


秀出所有的timezone資訊

Dim str As String = ""
Dim currentTime As DateTime
For Each tzi In TimeZoneInfo.GetSystemTimeZones
currentTime = DateTime.UtcNow.AddHours(tzi.BaseUtcOffset.Hours)
str = str & String.Format("ID:{0}, StandardName:{1}, Time:{2}", tzi.Id, tzi.StandardName, currentTime) & System.Environment.NewLine
Next