Как проверить, что Optional параметр передан?

[Leon_]

Помогите разобраться?

В объявлении функции использую Optional параметры:

Код: Выделить всё

Public Function AnyFunction(Optional ByVal nTest as Long, Optional ByVal dtDate As Date) as Boolean
        If (IsMissing(nTest)) then
                   . .. . . . . . ..
        End if

        If (IsMissing(dtDate)) then
                   . .. . . . . . ..
        End if
End Function

И вызываю все это через Call AnyFunction(), т.е. параметры опускаю.
При проверке (IsMissing(nTest)) получается True, а (IsMissing(dtDate)) выдает False. (?!) Оказывается что dtDate уже имеет значение =0:00:00 .
Что это за явление? Это только у меня так или это штатное поведение?

[Samovar]

Да нет - у меня вообще IsMissing возвращает False. Можно поставить какую-нибудь глупость, напр.:
Optional ByRef dtDate As Date = CDate("01.04.1900")
и потом вместо IsMissing проверять year(dtDate)...

[skiperski]

Код: Выделить всё

Public Function test( _
    Optional ByVal v As Variant, _
    Optional ByVal i As Long, _
    Optional ByVal d As Date, _
    Optional ByVal s As String _
    )
   
    Debug.Print IsMissing(v)
    Debug.Print IsMissing(i)
    Debug.Print IsMissing(d)
    Debug.Print IsMissing(s)
   
End Function

Immediate

Код: Выделить всё

?test
True
False
False
False

Вывод: IsMissing() работает только! для переменных типа Variant

[alibek]

Об этом кстати и в хелпе говорится, только для Variant с неуказанным значением по умолчанию.
Т.е. либо используй Variant, либо те значения, которых при обычном вызове быть не должно.

[Alexanbar]

А зачем, собственно, это проверять? Можно простто указать, какое должно быть значение опционного параметра по умолчанию:

Public Function AnyFunction(Optional ByVal nTest as Long =11, Optional ByVal dtDate As Date=какая-то_дата) as Boolean
....

end function

[alibek]

Alexanbar, а ты попробуй такую декларацию:

Код: Выделить всё

Public Function AnyFunction(Optional ByVal dtDate As Date = Now() ...

В этом случае без правильного IsMissing не обойтись

[skiperski]

Код: Выделить всё

Public Function AnyFunction(Optional ByVal dtDate As Date = 0)
    If (dtDate = 0) Then dtDate = Now()
    ...
End Function

[alibek]

Если я вызову эту функцию с датой 31 декабря 1899 года, то эта функция сработает неправильно

[Leon_]

Такая дискуссия разгорелась
Все сказанное выше очень полезно, но я забыл уточнить -- работает все это из-под Access 2002, и кроме типа Date, IsMissing исправно работает с остальными стандартными типами. Надеюсь, тьфу-тьфу, и дальше будет нормально.
Но вообще довольно неудобно назначать и проверять значения параметров "по умолчанию".[/code]