本文介绍了函数可选参数日期类型失败的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我有一个函数可以查找以下星期一的日期。如果没有传递可选的日期参数，则默认为零。我想我已经添加了解释问题的注释
Function NextMondayFromADateOrToday(Optional StartDate As Date) As Date
' objective: if date param not supplied should set StartDate to today
' ??? Problem: with no arg provided StartDate is zero = date value of 1/1/1900
' ??? how to add default to optional paramater of date type?
' ??? or, how to check if an arg was provided if the parameter is date type?
If Not (IsDate(StartDate)) Then StartDate = Date
Select Case Weekday(StartDate)
Case 1: NextMondayFromADateOrToday = StartDate + 1
Case 2: NextMondayFromADateOrToday = StartDate + 0
Case 3: NextMondayFromADateOrToday = StartDate + 6
Case 4: NextMondayFromADateOrToday = StartDate + 5
Case 5: NextMondayFromADateOrToday = StartDate + 4
Case 6: NextMondayFromADateOrToday = StartDate + 3
Case 7: NextMondayFromADateOrToday = StartDate + 2
End Select
End Function
推荐答案
VBA变量通常有一个缺省值，任何可选参数都会自动设置为其缺省值，因此这种行为是意料之中的。既然您已经知道，如果不通过，可选参数将默认为0(1/1/1900)，为什么不直接测试该值，而不是测试是否传入了日期？
另一方面，如果您认为可能需要传入1/1/1900，那么您应该将可选参数设置为Variant类型。变量在可选地传入时不会被初始化，因此它将没有默认值(与日期不同)。
这篇关于函数可选参数日期类型失败的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！