Vba 正在尝试设置当前月份的格式

我看了多个论坛都找不到解决我问题的办法。 我正在尝试获取今天日期的当前月份。 如果我使用 msgbox月（日） 我得到1月份的值1 但是如果我用 msgbox格式（月（日），“毫米”） 它将于十二月回归。 有人知道我犯了什么错误吗？ 我试图避免编写冗长的代码，如if 1然后是“一月”，if 2然后是“二月”，等等。

简单地说：

Sub WhatsInaName()
    MsgBox Format(Date, "mmmm")
End Sub

至于你为什么会得到12月：

Sub qwerty()
    Dim d As Date
    d = CDate(1)
    MsgBox d
End Sub

收益率：

---

哇，我真不敢相信我错过了。谢谢Gary的学生，我想我今天盯着代码看太久了，应该走了，清醒一下头脑。