date格式返回错误的值和格式

我有一个奇怪的问题。 由于某些原因，我无法理解这个简单的一点点的代码是返回错误的值。 它正在返回3/8/1985。 如果我格式化为“mm / dd / yy”，它会返回正确的date，也就是我不想要的格式。 （就像一个注释，如果我使用“mm”格式化它返回1/2/1900，如果我使用“mmdd”它返回11/6/1900）。这之前工作正常，所以我认为必须的东西已经改变了，但我不知道是什么。

任何帮助将不胜感激。

Sub testdate() Dim today As Date today = Format(Now, "mmddyy") MsgBox today End Sub 

Answer 1

 Sub testdate() Dim todayy As String todayy = Format(Now, "mmddyy") MsgBox todayy End Sub 

将显示031114