VBA中传递缺失的可选日期参数，如何让子过程识别其缺失状态？

你遇到的核心问题是IsMissing函数仅对未指定默认值的Variant类型可选参数有效，而Date是值类型：当你声明Optional aDate1 As Date且不指定默认值时，VBA会自动将未传递的参数初始化为Date类型的默认值（数值0，对应日期1899-12-30）。所以在Second_Sub中，参数已经被赋值为0，IsMissing自然返回False，无法识别参数是否被显式传递。

方案1：改用Variant类型作为可选参数 #

这是最直接的解决方式，利用IsMissing函数的原生特性，无需额外处理默认值：

Sub Test_Main()
    Call First_Sub
End Sub

Sub First_Sub(Optional aDate1 As Variant, Optional aDate2 As Variant, Optional aDate3 As Variant)
    Call Second_Sub(aDate1:=aDate1, aDate2:=aDate2, aDate3:=aDate3)
End Sub

Sub Second_Sub(Optional aDate1 As Variant, Optional aDate2 As Variant, Optional aDate3 As Variant)
    ' 直接用IsMissing判断参数是否被传递
    If IsMissing(aDate1) Then aDate1 = Now()
    ' 可选：添加类型校验，避免传入非日期值导致错误
    If Not IsDate(aDate1) Then
        Err.Raise vbObjectError + 1001, , "参数aDate1必须为日期类型"
    End If
    Debug.Print aDate1
End Sub

优点：代码简洁，直接利用IsMissing识别未传递的参数，无需维护特殊默认值；
缺点：Variant类型允许传入非Date值，需要额外添加类型校验避免运行时错误。

方案2：使用业务无关的哨兵值（你的方案优化版） #

保留Date类型，声明一个业务场景中绝对不会用到的默认值（哨兵值），通过判断参数是否等于该值来识别是否被显式传递：

' 定义全局哨兵值常量，选业务中不可能出现的日期（比如Date类型的初始值）
Const UNASSIGNED_DATE As Date = #12/30/1899#

Sub Test_Main()
    Call First_Sub
End Sub

Sub First_Sub(Optional aDate1 As Date = UNASSIGNED_DATE, Optional aDate2 As Date = UNASSIGNED_DATE, Optional aDate3 As Date = UNASSIGNED_DATE)
    Call Second_Sub(aDate1:=aDate1, aDate2:=aDate2, aDate3:=aDate3)
End Sub

Sub Second_Sub(Optional aDate1 As Date = UNASSIGNED_DATE, Optional aDate2 As Date = UNASSIGNED_DATE, Optional aDate3 As Date = UNASSIGNED_DATE)
    If aDate1 = UNASSIGNED_DATE Then aDate1 = Now()
    Debug.Print aDate1
End Sub

优点：保持Date类型的强类型约束，无需额外类型校验；
缺点：需要确保哨兵值不会在真实业务场景中出现，否则会误判参数是否被传递。

方案3：使用参数数组（适用于参数数量不固定的场景） #

如果你的可选参数数量不固定，或者想进一步简化代码，可以用ParamArray：

Sub Test_Main()
    Call First_Sub
    ' 也可以传递任意数量的日期参数
    ' Call First_Sub(#2024/1/1#, #2024/2/1#)
End Sub

Sub First_Sub(ParamArray dates() As Variant)
    Call Second_Sub(dates)
End Sub

Sub Second_Sub(dates As Variant)
    Dim targetDate As Date
    ' 如果没有传递参数，使用当前时间
    If UBound(dates) = -1 Then
        targetDate = Now()
    Else
        ' 取第一个传递的日期（可根据需求调整逻辑）
        targetDate = dates(0)
    End If
    Debug.Print targetDate
End Sub

优点：支持任意数量的参数传递，代码灵活性高；
缺点：需要处理参数数组的索引，仅适合参数逻辑可批量处理的场景。

• 如果希望代码简洁且能直接识别未传递的参数，优先选方案1（Variant+IsMissing）；
• 如果需要严格的类型约束且能确保哨兵值的唯一性，选方案2（哨兵值）；
• 如果参数数量不固定，选方案3（参数数组）。

内容的提问来源于stack exchange，提问作者MonroeGA