我将项目存储在字典中，其中键为date，例如'2012/05/11'。默认情况下，该键被改为数字（41040）。 当我想要检索该项目时，我需要通过编号：dFRmonths.Item（41040）来引用它。 由于dFRmonths.Item（“2012/05/11”）不存在。

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

尝试将date转换为数字会导致“溢出”错误：

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

任何想法如何改变“2012/05/11”到41040，所以我可以看看它？

一个小窍门！

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

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