Imports System
Public Class MainClass
Shared Sub Main()
Dim dteData As Date
'Get the current date and time
dteData = Now
'Display the results
System.Console.WriteLine(dteData)
'Display dates
System.Console.WriteLine(dteData.ToLongDateString)
System.Console.WriteLine(dteData.ToShortDateString)
'Display times
System.Console.WriteLine(dteData.ToLongTimeString)
System.Console.WriteLine(dteData.ToShortTimeString)
End Sub
End Class