怎么用vbscript写出提示"所选日期大于7天了,请重选"

Kettyjin1983 发布于 2008-12-08 15:15， 1057 次点击

以下代码错误了.
function add_OnClick()
If DateDiff("d",mydate,form1.startday.value)< "7" Then
        MsgBox "申请日期超过当天日期7天,请重选"
        form1.startday.focus()
    Else

        form1.submit
End If
<tr>
      <td width="216" class="td6" height="35">申请日期:</td>
     <td> <input onfocus="calendar()"  name="startday" type = "text" id="s2" >
      </td>
  </tr>

3 回复

yms1232008-12-08 15:43

function add_OnClick()
If DateDiff("d",now(),mydate,form1.startday.value)<7 Then
        MsgBox "申请日期超过当天日期7天,请重选"
        form1.startday.focus()
    Else
        form1.submit
End If
DateDiff返回的是数字类型

Kettyjin19832008-12-08 16:34

回复第2楼 yms123 的帖子

谢谢yms123,一针见血了.

anlige2008-12-09 15:12

呵呵~要细心啊~~