你只是设置长日期，没有设置短日期
msgbox(Date.Today)
Vars.Add("ddd",Gettype(Boolean),False)
If Vars("ddd") = False Then
Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If DateInfo IsNot Nothing Then
DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If
Vars("ddd") = True
End If
msgbox(Date.Today)
加好友 
发短信
Post By：2016/11/28 21:59:00 [显示全部帖子]
