Mega Code Archive
China Standard Time
Module Example
Public Sub Main()
Dim currentTime As Date = Date.Now
Console.WriteLine("Beijing: {0}", TimeZoneInfo.ConvertTimeBySystemTimeZoneId(currentTime, TimeZoneInfo.Local.Id, "China Standard Time"))
End Sub
End Module