日期连动

原创 2004年10月03日 15:31:00

<form id=f>
 年<SELECT id=s1 name=s1 onchange="vbs:aaa"></SELECT>
 月<SELECT id=s2 name=s2 onchange="vbs:aaa"></SELECT>
 日<SELECT id=s3 name=s3></SELECT>
</form>
<SCRIPT LANGUAGE=vbscript>
'初始年
 MyAdd "f.s1",1970,2050
'初始月
 MyAdd "f.s2",1,12
'初始日
 MyAdd "f.s3",1,31
sub MyAdd(S,x,y)'增加
 set obj=eval(S) 
 for i=x to y
  set o=document.createElement("OPTION")
  o.text=i
  o.value=i
  obj.add o
 next
end sub
sub MyRemove(S)'删除
 set obj=eval(S) 
 for each opt in obj.options
  obj.remove  opt.index
 next
end sub
sub aaa'自定义过程,用来改变s3日期
 dim mydate,maxdate
 '先清空全部,最好从28号以后清空,但是这样效率低人感觉不到,偷点懒不是罪 
 MyRemove "f.s3"
 for i=1 to 31
  mydate=f.s1.value & "-" & f.s2.value & "-" & i 
  if isdate(mydate) then '判断是否是有效日期
   maxdate=i
  else
   exit for
  end if
 next
 MyAdd "f.s3",1,maxdate
end sub
</SCRIPT>

 

 

 

 

 

<script language="JavaScript">
function initDate() {
 var obj=document.all['dateform'];
 var y=obj.year;
 var m=obj.month;
 var d=obj.date;
 for (var i=1900;i<2004;i++) {
  y.options.length=y.options.length+1;
  y.options[y.options.length-1].text=y[y.options.length-1].value=i;
 }
 y.value=1978;
 for (var i=0;i<12;i++) {
  m.options.length=i+1;
  m[i].value=i+1;
  if (i<9) {
   m.options[i].text="0"+(i+1);
  } else {
   m.options[i].text=i+1;
  }
 }
 m.value=1;
 for (var i=0;i<31;i++) {
  d.options.length=i+1;
  d[i].value=i+1;
  if (i<9) {
   d.options[i].text="0"+(i+1);
  } else {
   d.options[i].text=i+1;
  }
 }
 d.value=1;
}
function setDate(obj) {
 var y=obj.year.value;
 var m=obj.month.value;
 var d=obj.date;
 var arrd=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
 if (y%4==0) arrd[1]=29;
 var md=arrd[m-1];
 if (d.options.length>md) {
  var index=d.value;
  d.options.length=md;
  if (index<md) {
   d.value=index;
  } else {
   d.value=md;
  }
 }
 if (d.options.length<md) {
  for (var i=d.options.length;i<md;i++) {
   d.options.length=d.options.length+1;
   d[i].value=d.options[i].text=i+1;
  }
 }
}
</script>
<body onLoad="initDate()">
<form name="dateform">
<select name="year" onChange="setDate(this.form)"></select>年
<select name="month" onChange="setDate(this.form)"></select>月
<select name="date"></select>日
</form>
</body>


 http://search.csdn.net/Expert/topic/2537/2537402.xml?temp=.4333917


http://www.adr.gov.cn/summit/statistics/DanWtj.asp
GB数据库


下载
ftp://csdn:csdn@61.152.210.28

Struts标签+javascript日期连动

以下是写在增加也面的代码:html:select property="year" onchange="toDate()">script language="JavaScript">...for(i=1...
  • zh029t
  • zh029t
  • 2006年10月20日 10:12
  • 1057

Javascript实现日期的连动选择

今天无意间闯进一网站看到了几个最常用的日历控件,很有头趣的尝试了一下下面的代码。觉得挺简单的贴出来给大学分享下:html>body>form>select id=year onchange=toDat...
  • zengjun24
  • zengjun24
  • 2007年09月27日 13:34
  • 588

连动

ashx using System;using System.Web;public class GetCity : IHttpHandler {        public void ProcessR...
  • CPU_2
  • CPU_2
  • 2011年07月26日 07:32
  • 229

Javascript实现日期的连动选择

for(i=1970;i"+i+"")for(i=1;i"+i+"")var arr="日一二三四五六".split("")function toDate(){    with(document.al...
  • zhan198271
  • zhan198271
  • 2008年02月14日 10:56
  • 376

div+css+jq省市联动可扩展

div+css+jq省市联动手写功能
  • u014492334
  • u014492334
  • 2016年06月20日 19:59
  • 2955

excel二级联动

由网上down的gif,流程操作即可。 但我在二级列操作时,每次都会报错,忽略,不影响。 注意: 我在操作二级操作时,下拉列表一直都点不动,最后才明白问题所在, 在点击“根据所选内容创建”按钮...
  • Dorothy1224
  • Dorothy1224
  • 2017年12月03日 20:58
  • 41

android 4-3排列的流式布局(直接上代码,原创)

import android.content.Context; import android.graphics.Color; import android.support.annotation.Dra...
  • baidu_33331545
  • baidu_33331545
  • 2018年01月25日 18:09
  • 57

Android:三级城市联动控件

Android:三级城市联动控件
  • a526001650a
  • a526001650a
  • 2016年11月09日 10:38
  • 478

jsp 页面联动菜单

serv:String loadDeviceModel(int vendorId, long areaId);servImpl:public String loadDeviceModel(int ve...
  • shannon8
  • shannon8
  • 2017年05月16日 10:44
  • 181

Android 笨办法实现editText动态输入框

自己在做app数字输入的时候,看到挖财记账的记一笔中的输入效果,感觉很是舒服,于是决定自己撸一个 先看看挖财的效果: 有两种方式可以实现: 1.自定义View来实现此控件,也就是重写下edit...
  • qq_21265915
  • qq_21265915
  • 2017年02月22日 20:58
  • 381
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:日期连动
举报原因:
原因补充:

(最多只允许输入30个字)