Module Module1

    Sub Main()
        Dim tMonday As DateTime = New DateTime(2004, 10, 18)
        Console.WriteLine(tMonday)
        Dim tDayAfterMonday = tMonday.AddDays(1)
        Console.WriteLine(tDayAfterMonday)
        Dim tString As String = tMonday.ToString()
        Console.WriteLine(tString)
        Dim tYear As Integer = tMonday.Year
        Console.WriteLine(tYear)
        Dim tDayOfWeek As DayOfWeek = tMonday.DayOfWeek
        Console.WriteLine(tDayOfWeek)
    End Sub

End Module