Mega Code Archive

 

Categories / VB.Net / Date Time

 

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