第一种方法:
DIM D AS DATE = DATE.TODAY
DIM F AS STRING = Cstr(D.Date).TrimEnd(" ","星","期","一","二","三","四","五","六","日")
第二种方法:
Dim F As String = F.Month & "/" & F.Day & "/" & F.Year