Class Sample
Public Shared Sub Main()
Dim dates() As Date = { #07/14/2010#, #6:32PM#, #02/12/2010 7:16AM#}
Dim result As String
For Each dateValue As Date In dates
result = Convert.ToString(dateValue)
Console.WriteLine("Converted the {0} value {1} to the {2} value {3}.", _
dateValue.GetType().Name, dateValue, _
result.GetType().Name, result)
Next
End Sub
End Class