Imports System
Public Class MainClass
Shared Sub Main()
Dim dteData As Date
'Get the current date and time
dteData = Now
'Display the various properties
System.Console.WriteLine("Month: " & dteData.Month)
System.Console.WriteLine("Day: " & dteData.Day)
System.Console.WriteLine("Year: " & dteData.Year)
System.Console.WriteLine("Hour: " & dteData.Hour)
System.Console.WriteLine("Minute: " & dteData.Minute)
System.Console.WriteLine("Second: " & dteData.Second)
System.Console.WriteLine("Day of week: " & dteData.DayOfWeek)
System.Console.WriteLine("Day of year: " & dteData.DayOfYear)
End Sub
End Class