Office中国论坛/Access中国论坛

标题: 在自定义函数中如何传递null值？ [打印本页]

作者: 麻雀 时间: 2002-9-28 03:35
标题: 在自定义函数中如何传递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 时间: 2002-9-28 11:31
将参数定义为variant类型

作者: Trynew 时间: 2002-9-30 06:09
将参数定义为可选类型并给出默认值

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)