Imports System
Public Class Test
Public Shared Sub Main()
Dim dt As DateTime = DateTime.Now
Console.WriteLine(dt.ToLongDateString())
Console.WriteLine(dt.ToLongTimeString())
Console.WriteLine(dt.ToShortDateString())
Console.WriteLine(dt.ToShortTimeString())
Console.WriteLine(dt.ToString())
End Sub
End Class
' run:
'
' Friday, October 9, 2020
' 3:11:32 PM
' 10/9/2020
' 3:11 PM
' 10/9/2020 3:11:32 PM
'