如何在 Excel VBA 中将日期格式更改为数字？

Question

我将项目存储在字典中，键是日期，例如'2012/05/11' 默认情况下，密钥随后更改为数字 (41040)。 当我想检索该项目时，我需要通过数字引用它：dFRmonths.Item(41040)。由于 dFRmonths.Item("2012/05/11") 不存在。

我只有日期，没有数字，所以我需要将日期转换为数字，然后使用数字进行查找。

尝试将日期转换为数字会出现 'overflow' 错误：

IntMonth = CInt("2012/05/11")

知道如何将“2012/05/11”更改为 41040 以便我查找吗？

谢谢！

Answer 1

一个小技巧！

Sub dural()
    IntMonth = CLng(CDate("2012/05/11"))
    MsgBox IntMonth
End Sub

这是因为 CDate() 非常灵活。