isEmpty（）始终返回false

Question

我有一个名为getYear的VBA函数，其初始化如下：

Public Function getYear(ByVal year As Date, Optional ByVal month As Date) As Long

然后，在函数中，我有：

msg = MsgBox(IsEmpty(month), vbOKOnly)因此，我知道是否已在函数中输入月份。

唯一的问题是我是否有一个函数调用，例如： getYear(currentYear)或getYear(currentYear, currentMonth) isEmpty始终返回False

如果我在调用getYear(currentYear)时正确理解了这一点，则isEmpty()应该返回True ，但不是...

我从函数初始化中收集到了信息，但我不知道该怎么办。

任何帮助表示赞赏！

Answer 1

从MSDN：

IsEmpty only returns meaningful information for variants

您还可以使用IsMissing()来检查是否将可选参数传递给函数，但这也仅适用于Variants。 您可能要检查可选参数的值是否等于其默认值，该日期的默认值为零。

Answer 2

您可以为“月”创建一个默认值，该默认值为零或负，或者超出可能的输入范围。 然后，您可以仅测试该默认值，而不必使用IsMissing或IsEmpty。 如果month =默认值，则说明该参数未传递给该函数。