用VBSrcipt判断是否是日期

1. <SCRIPT LANGUAGE="vbScript">  
2. <!--  
3. '判断是否是日期  
4. function thisdate(dt)  
5.     if not IsDate(dt) then  
6.         thisdate=false  
7.     elseif int(left(dt,4))<int(1750) then  
8.         thisdate=false  
9.     else  
10.         thisdate=true  
11.     end if  
12. end function  
13.  
14. //-->  
15. </SCRIPT>