驗證日期格式函數

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