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