Imports System

Module TimeExample
    Sub Main()
        ' We'll start by getting the current time.
        Dim now As Date = Date.Now
        Console.WriteLine(now)

        ' You can build a DateTime struct by providing the
        ' year, month, day, etc. Times are always associated
        ' with a specific time zone.
        Dim then As New DateTime(2009, 11, 17, 20, 34, 58, 651, DateTimeKind.Utc)
        Console.WriteLine(then)

        ' You can extract the various components of the time
        ' value as expected.
        Console.WriteLine(then.Year)
        Console.WriteLine(then.Month)
        Console.WriteLine(then.Day)
        Console.WriteLine(then.Hour)
        Console.WriteLine(then.Minute)
        Console.WriteLine(then.Second)
        Console.WriteLine(then.Millisecond)
        Console.WriteLine(then.Kind)

        ' The day of the week is also available.
        Console.WriteLine(then.DayOfWeek)

        ' These methods compare two times, testing if the
        ' first occurs before, after, or at the same time
        ' as the second, respectively.
        Console.WriteLine(then < now)
        Console.WriteLine(then > now)
        Console.WriteLine(then = now)

        ' The Subtract method returns a TimeSpan representing
        ' the interval between two times.
        Dim diff As TimeSpan = now.Subtract(then)
        Console.WriteLine(diff)

        ' We can compute the length of the duration in
        ' various units.
        Console.WriteLine(diff.TotalHours)
        Console.WriteLine(diff.TotalMinutes)
        Console.WriteLine(diff.TotalSeconds)
        Console.WriteLine(diff.TotalMilliseconds)

        ' You can use Add to advance a time by a given
        ' duration, or with a negative value to move backwards by a
        ' duration.
        Console.WriteLine(then.Add(diff))
        Console.WriteLine(then.Add(-diff))
    End Sub
End Module