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

Question

我将项目存储在字典中，键是日期，例如'2012/05/11'
默认情况下， key 会更改为数字 (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() 非常灵活。