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()) Console.WriteLine("Ticks since 12:00AM January 1, 1 CE="+ Now().Ticks().ToString()) End Sub End class