Imports System
Public Class Program
Public Shared Sub Main()
Dim dt As DateTime = New DateTime(2008, 05, 07, 13, 23, 07, 285)
Dim s As String = String.Format("{0:d}", dt)
Console.WriteLine(s)
s = String.Format("{0:D}", dt)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 5/7/2008
' Wednesday, May 7, 2008
'