Module DateManipulation
Public Sub Main()
Dim localTime As Date = Date.Now
Dim utcTime As Date = Date.UtcNow
Console.WriteLine(localTime.Kind.ToString())
Console.WriteLine(utcTime.Kind.ToString())
Console.WriteLine((localTime - utcTime).Hours)
Console.WriteLine((localTime - utcTime).Minutes)
Console.WriteLine(localTime.CompareTo(utcTime))
Console.WriteLine(utcTime.Kind.ToString())
End Sub
End Module