[求助]判断类型为“2004.06.23”格式的函数

[wylf]

以下是我写的判断类型如“2004.06.23”格式的函数
dim bs
bs=0
function check(str)
str=trim(str)
if len(str)<>10 then
bs=1
else
for i=1 to 10
a= asc(mid(str,i,1))
if i<>5 and i<>8 then
if a>47 and a<58 then
else
bs=1
end if
else
end if
next
end if
end function
但是运行时显示
错误类型：
Microsoft VBScript 运行时错误 (0x800A005E)
无效使用 Null: 'mid(...)'
请帮忙找找错误 ，急！

[up1002]

没必要这样写呀。VBS有专门的判断是否日期的函数 isDate()。
看你的函数当中也没有判断年/月/日的分隔符号是否为"."，
如果要判断str是否为合法的日期，并且年/月/日的分隔符号为"."，完全可以

if isDate(str) and InStr(InStr(str,".")+1,str,".")>0

基本上不会有问题。

[QQgenie]

dim bs
bs=0
function check(str)
str=trim(str)
if len(str)<>10 or instr(str,".")=0 then
bs=1
else
if isdate(str) then
else
bs=1
end if
end if
check=bs
end function

[tuyah]

Function CheckDate(str)
Dim regEx, Match, Matches, flag

Set regEx = New RegExp
regEx.Pattern = "\d{4}\.\d{2}\.\d{2}"
regEx.IgnoreCase = True
regEx.Global = True

Set Matches = regEx.Execute(str)
For Each Match in Matches
RetStr = RetStr & Match.FirstIndex
RetStr = RetStr & Match.Value
Next

if RetStr="" then
CheckDate = 0
else
CheckDate = 1
end if
End Function

[zol9993]

我买了一个 便宜的 asp.net空间！才50元！高兴！给分！！
100mb 的！可以做论坛！才 50元！！速度飞快！
www.hi876.com 你们看看