Function ValidateDateParameter(DateID as String) as Boolean
If len(DateID) = 8 and isdate( mid(DateID,1,4) + "-" + mid(DateID,5,2) + "-" + mid(DateID,7,2) ) then
ValidateDateParameter = true
else if DateID="" then
ValidateDateParameter = true
else
ValidateDateParameter = false
end If
End Function
If len(DateID) = 8 and isdate( mid(DateID,1,4) + "-" + mid(DateID,5,2) + "-" + mid(DateID,7,2) ) then
ValidateDateParameter = true
else if DateID="" then
ValidateDateParameter = true
else
ValidateDateParameter = false
end If
End Function