试图格式化当前月份

Question

我已经查看了多个论坛，无法找到解决我问题的方法。 我想要获得今天的当前月份。 如果我使用 msgbox月（日期） 我得到1月份的值1 但如果我用它格式化它 msgbox格式（月（日期），“mmmm”） 它返回12月。 有谁知道为什么或我的错误呢？ 我试图避免编写冗长的代码，如果1然后“1月，否则如果2然后”2月“等等。

Answer 1

简单地：

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

至于你为什么要去12月：

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

的产率：