Imports System

Public Module Module1

    Public Sub Main()

        dim utc = datetime.UtcNow

        dim dt = TimeZone.CurrentTimeZone.ToLocalTime(utc)

        dim offset = TimeZone.CurrentTimeZone.GetUtcOffset(utc)

        dim offset2 = TimeZoneInfo.Local.GetUtcOffset(utc)

        dim offset3 = DateTimeOffset.Now.Offset

        Console.WriteLine(dt)

        Console.WriteLine(offset)

        Console.WriteLine(offset2)

        Console.WriteLine(offset3)

    End Sub

End Module