用VBSrcipt判断是否是日期

<SCRIPT LANGUAGE="vbScript">
<!--
'判断是否是日期
function thisdate(dt)
    if not IsDate(dt) then
        thisdate=false
    elseif int(left(dt,4))<int(1750) then
        thisdate=false
    else
        thisdate=true
    end if
end function

//-->
</SCRIPT>