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