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