Public Class Tester
Public Shared Sub Main
Dim rightNow As Date = Now
Dim result As New System.Text.StringBuilder
result.AppendLine("""Now""...")
result.AppendLine()
result.Append("Date: ").AppendLine(rightNow.ToShortDateString)
result.Append("Time: ").AppendLine(rightNow.ToShortTimeString)
result.Append("Ticks: ").Append(rightNow.Ticks.ToString)
Console.WriteLine(result.ToString())
End Sub
End Class
Now"...
Date: 11/05/2007
Time: 9:09 PM
Ticks: 633145145771093750