public class Test public Shared Sub Main Dim D As DateTime D = Now() Console.WriteLine(D.ToUniversalTime().GetType().Name) Console.WriteLine("UTC-LocalTime=" + D.ToUniversalTime().Subtract(D).ToString()) End Sub End class
DateTime UTC-LocalTime=07:00:00