<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>