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

Question

我将项目存储在字典中，其中密钥是日期，例如'2012/05/11' 然后，密钥默认更改为数字（41040）。 当我想要检索该项时，我需要通过数字来引用它：dFRmonths.Item（41040）。由于dFRmonths.Item（“2012/05/11”）不存在。

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

尝试将日期转换为数字会产生“溢出”错误：

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

任何想法如何将“2012/05/11”更改为41040以便我可以查找它？

谢谢！

Answer 1

一个小技巧！

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

这是因为 CDate（） 非常灵活。