Public Class Tester Public Shared Sub Main Dim rightNow As Date = Now Dim result As New System.Text.StringBuilder result.Append("yy/MM/dd g: ") result.AppendLine(rightNow.ToString("yy/MM/dd g")) Console.WriteLine(result.ToString) End Sub End Class
yy/MM/dd g: 07/05/11 A.D.