Public Class Tester
Public Shared Sub Main
Dim rightNow As Date = Now
Dim yearNow As Integer = rightNow.Year
Dim monthNow As Integer = rightNow.Month
Dim dayNow As Integer = rightNow.Day
Dim results As String = String.Format( _
"Year: {1}{0}Month: {2}{0}Day: {3}{0}", _
vbNewLine, yearNow, monthNow, dayNow)
Console.WriteLine(results)
End Sub
End Class
Year: 2007
Month: 5
Day: 11