Imports System
Public Class Program
Public Shared Sub Main()
Dim CurrentTimeZone As TimeZone = TimeZone.CurrentTimeZone
Dim UniversalTimeNow As DateTime = CurrentTimeZone.ToUniversalTime(DateTime.Now)
Console.WriteLine(UniversalTimeNow.ToString())
Dim PacificStandardTimeNow = TimeZoneInfo.ConvertTime(DateTime.Now, TimeZoneInfo.FindSystemTimeZoneById("Pacific Standard Time"))
Console.WriteLine(PacificStandardTimeNow.ToString())
End Sub
End Class
' run:
'
' 8/5/2022 3:46:29 PM
' 8/5/2022 8:46:29 AM
'