VBA日期函数参数处理：如何检测未传入的日期参数？

问题根源 #

原函数存在三个核心问题：

1. 参数未设置为可选：无法支持仅传入一个参数的需求，未传入的参数会被当作Empty处理，直接CDate转换后得到0（对应1899-12-30）
2. 逻辑分支错误：If语句没有包裹后续代码，无论deltad > 0是否成立，最后都会执行ReturnEarlierDate = CDate(existingDate)，覆盖之前的赋值结果
3. 未处理无效日期：当参数为空或非日期值时，直接CDate会导致错误或返回默认0值

修复后的函数代码 #

Function ReturnEarlierDate(Optional newDate As Variant, Optional existingDate As Variant) As Date
    ' 处理两个参数都无效的情况（可根据需求调整：抛出错误或返回默认值）
    If Not IsDate(newDate) And Not IsDate(existingDate) Then
        Err.Raise vbObjectError + 1001, , "至少需要传入一个有效日期参数"
    End If
    
    ' 仅传入单个有效参数时，直接返回该参数
    If Not IsDate(existingDate) Then
        ReturnEarlierDate = CDate(newDate)
        Exit Function
    End If
    If Not IsDate(newDate) Then
        ReturnEarlierDate = CDate(existingDate)
        Exit Function
    End If
    
    ' 两个参数都有效时，返回较早的日期
    Dim deltad As Long
    deltad = DateDiff("d", CDate(newDate), CDate(existingDate))
    If deltad > 0 Then
        ReturnEarlierDate = CDate(newDate)
    Else
        ReturnEarlierDate = CDate(existingDate)
    End If
End Function

代码说明 #

• 可选参数声明：用Optional关键字标记参数，采用Variant类型接收，方便判断参数是否为有效日期
• 有效性校验：通过IsDate函数过滤无效参数，避免空值或非日期值导致的转换错误
• 单参数处理：当其中一个参数无效时，直接返回另一个有效日期，满足仅传一个参数的需求
• 逻辑修正：用Else分支处理日期比较的反向场景，确保只会返回一个正确结果

测试验证 #

修改测试代码后运行，可验证各类场景：

Sub Test()
    Dim arrayValues(2)
    arrayValues(1) = #10/10/2023#
    ' 测试第一个参数有效、第二个无效的情况
    Debug.Print ReturnEarlierDate(arrayValues(1), arrayValues(0)) ' 返回 2023/10/10
    ' 测试仅传入第二个有效参数的情况
    Debug.Print ReturnEarlierDate(, arrayValues(1)) ' 返回 2023/10/10
    ' 测试两个有效参数比较的情况
    Debug.Print ReturnEarlierDate(#10/15/2023#, #10/10/2023#) ' 返回 2023/10/10
End Sub

运行后会输出期望的日期结果，不再返回00:00:00。

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