TimeZoneInfo.FindSystemTimeZoneById("Tokyo Standard Time")
Module Example Public Sub Main() Dim thisTime As Date = Date.Now Dim tst As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Tokyo Standard Time") Dim tstTime As Date = TimeZoneInfo.ConvertTime(thisTime, TimeZoneInfo.Local, tst) Console.WriteLine("Time in {0} zone: {1}", IIf(TimeZoneInfo.Local.IsDaylightSavingTime(tstTime), _ tst.DaylightName, tst.StandardName), tstTime) Console.WriteLine(" UTC Time: {0}", TimeZoneInfo.ConvertTimeToUtc(tstTime, tst)) End Sub End Module