Imports System.IO
Module Module1
Sub Main()
Dim DT As DateTime = Now()
Console.WriteLine("Day: " & Day(DT).ToString)
Console.WriteLine("Month: " & Month(DT))
Console.WriteLine("Year: " & Year(DT))
Console.WriteLine("Hour: " & Hour(DT))
Console.WriteLine("Minute: " & Minute(DT))
Console.WriteLine("Second: " & Second(DT))
Console.WriteLine("Today: " & Today)
Console.WriteLine("TimeOfDay: " & TimeOfDay().ToString())
End Sub
End Module