Class MainClass
Public Shared Sub Main()
Dim thisDay As DateTime = DateTime.Today
Console.WriteLine(thisDay.ToString("d"))
Console.WriteLine(thisDay.ToString("D"))
Console.WriteLine(thisDay.ToString("g"))
End Sub
End Class