不要JS的代码。

求可以判断输入的日期格式是否为:yyyy-MM-dd  这种的函数

left
mid
right
year
month
day

要怎么写呢？
我用最笨的方法，自己想出来的，判断输入的位数为8，9，10 或者<8   >10 最后还是没成功。基础差，没逻辑思维。
求大家帮忙写一个呀

看来我好象弄错了

s = "2010-11-5"
a = Split(s, "-")
If Val(a(0)) > 0 And Val(a(0)) < 9999 And Val(a(1)) < 13 And Val(a(1)) > 0 And Val(a(2)) > 0 And Val(a(2)) < 31 Then
 response.write "- -"
End If

Function val(str)
    val = sz(str)
    While sz(str) = ""
        str = Left(str, Len(str) - 1)
    Wend
    If Len(str) = 0 Then val = 0 Else val = sz(str)
End Function

Function sz(str)
    On Error Resume Next
    sz = CDbl(str)
End Function

function pd(val)
dim val,datestr,i
val=str
if len(var)=9 and isdate(var) then
if mid(var,5,1)="-" and mid(var,8,1)="-" then
return var
else
val=""
end if
end if


[ 本帖最后由 ikonglin 于 2010-11-5 12:43 编辑 ]

a="2000-1-1"
if IsDate(a) then
...
else
...
end if

a="2000-01-01"
if IsNumeric(mid(a,1,4)) AND Mid(a,5,1)="-" AND mid(a,6,2)>0 AND mid(a,6,2)<13 AND Mid(a,8,1)="-" AND mid(a,9,2)>0 AND mid(a,9,2)<32 then
...

这个和我的水平差不多。。。

这个不错，逻辑性比较强，学习了！

没办法，最后我还是用的这个最简单的