计算时间间隔函数

来源:互联网 发布:Ibats 配置文件<sql> 编辑:程序博客网 时间:2024/04/28 18:16

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<script language="vbscript">
    sub GetDateInterval()
      dim date1,date2,date,interval
   date1=document.frm.date1.value
   date2=document.frm.date2.value
   interval=document.frm.interval.value
   date=datediff(interval,date1,date2)
   document.frm.date.value=date
 end sub
</script>
<body>
<form name="frm">
  <label>起始日期<input type="text" name="date1" size="13"></label>
  <label>终止日期<input type="text" name="date2" size="13"></label>
  <br>
  选择单位<select name="interval"  onChange="GetDateInterval()">
   <option value="yyyy">年</option>
   <option value="m">月</option>
   <option value="d">天</option>
   <option value="q">季度</option>
   <option value="y">一年中的天数</option>
   <option value="w">一周中的天数</option>
   <option value="ww">周</option>
   <option value="h">小时</option>
   <option value="n">分钟</option>
   <option value="s">秒钟</option>
</select>
  时间间隔<input type="text" name="date" size="13">
</form> 
</body>
</html>

 

原创粉丝点击