Null date parameter

[John]

Hi

How can I pass a null value to a date parameter in a Sub?

Thanks

Regards

 

[Stefan Hoffmann]

hi John,

How can I pass a null value to a date parameter in a Sub?

you have to pass it as Varian as normal data types cannot be Null:

Public Sub yourSub(ADateNullable As Variant)

On Local Error GoTo LocalError

Dim DateValue As Date

If IsNull(ADateNullable) Then
Else
DateValue = CDate(ADateNullable)
End IF

Exit Sub

LocalError:
If Err.Number = 13 Then
' Type mismatch.
End If

End Sub



mfG
--> stefan <--