Dim dt As DateTime = New DateTime(2002, 5, 12, 20, 30, 15, 123) Console.WriteLine("ToString :{0}", dt.ToString()) '2002/05/12 20:30:15 Console.WriteLine("ToShortDateString :{0}", dt.ToShortDateString()) '2002/05/12 Console.WriteLine("ToLongDateString :{0}", dt.ToLongDateString()) '2002年5月12日 Console.WriteLine("ToShortTimeString :{0}", dt.ToShortTimeString()) '20:30 Console.WriteLine("ToLongTimeStr