在自定义函数中如何传递null值？

麻雀

Public Function jrq(开始日期 As Date, 结束日期 As Date, 参照日期 As Date) As Long

    If IsNull(开始日期) Then 开始日期 = Date
    If IsNull(结束日期) Then 结束日期 = Date
    If IsNull(参照日期) Then 参照日期 = Date
   
    jrq = IIf(参照日期 > 开始日期, 结束日期 - 参照日期, 结束日期 - 开始日期)

End Function

在运行中，如果计算时所用的一个参数为null的话，函数将返回null。也就是说，在函数开始时，将null值设置为当前日期的命令不起作用。

请教高手，如何解决？

teddibear

将参数定义为variant类型

Trynew

将参数定义为可选类型并给出默认值