-
您的位置:首页 → 精文荟萃 → 软件资讯 → 日期控件
日期控件
时间:2004/10/7 19:17:00来源:本站整理作者:蓝点我要评论(0)
-
function rlCtrl()
{
// DateCtrl created by yyc 2000-6-18
// Copyright (C) 2000.6 yyc, All Rights Reserved
// this is a free class,but you must be reserve this comments
// E-mail:yycmail@263.net
var varMe,s,d,i;
var len= rlCtrl.arguments.length;
if (len>0)
{
varMe=rlCtrl.arguments[0];
this.name=varMe;
if (len>=4)
{
this.year=rlCtrl.arguments[1];
this.month=rlCtrl.arguments[2];
this.day=rlCtrl.arguments[3];
}
else
{
today=new Date();
this.year=today.getYear();
this.month=today.getMonth()+1;
this.day=today.getDate();
}
this.getdate=getCurDate;
document.writeln('");
document.writeln('");
return this;
}
else
{
alert("初始化日历控件错误!!")
return null;
}
}
function opencls(vMe)
{
var s=vMe.name;
var o=document.all("div"+s);
var o1=document.all("tbl"+s);
if (o.style.display=="none")
{
dispDate(vMe);
o.style.display="block";
o1.focus();
}
else
doKey(vMe,27);
}
function getCurDate()
{
return this.year+"-"+this.month+"-"+this.day;
}
function numberOfDays(y,m)
{
var numDays=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
n=numDays[m];
if (m==1 && y%4==0) ++n
return n;
}
function doKey(vMe,keyCode)
{
var o,o1,i,j,k,d1,d,s;
o=document.all("div"+vMe.name);
switch(keyCode)
{
case 27:
o.style.display="none";
o1=document.all("txt"+vMe.name);
s=o1.value;
i=s.indexOf("年");
j=s.indexOf("月");
k=s.indexOf("日");
vMe.year=Math.abs(s.substring(0,i));
vMe.month=Math.abs(s.substring(i+1,j));
vMe.day=Math.abs(s.substring(j+1,k));
o1.focus;
break;
case 13:
o.style.display="none";
d=new Date(vMe.year,vMe.month-1,vMe.day);
i=d.getDay();
s=getsweek(i);
o1=document.all("txt"+vMe.name);
o1.value=vMe.year+"年"+vMe.month+"月"+vMe.day+"日--"+s;
break;
case 38:
i=vMe.day;
j=numberOfDays(vMe.year,vMe.month-1);
i=i-7;
if(i>0&&i<=j)
{
d1=new Date(vMe.year,vMe.month-1,1);
k=d1.getDay();
j=vMe.day+k-1;
o1=document.all("td"+vMe.name+j);
o1.innerHTML=vMe.day;
vMe.day=i;
j=vMe.day+k-1;
o1=document.all("td"+vMe.name+j);
o1.innerHTML=""+vMe.day+"";
}
break;
case 40:
i=vMe.day;
j=numberOfDays(vMe.year,vMe.month-1);
i=i+7;
if(i>0&&i<=j)
{
d1=new Date(vMe.year,vMe.month-1,1);
k=d1.getDay();
j=vMe.day+k-1;
o1=document.all("td"+vMe.name+j);
o1.innerHTML=vMe.day;
vMe.day=i;
j=vMe.day+k-1;
o1=document.all("td"+vMe.name+j);
o1.innerHTML=""+vMe.day+"";
}
break;
case 37:
i=vMe.day;
j=numberOfDays(vMe.year,vMe.month-1);
i=i-1;
if(i>0&&i<=j)
{
d1=new Date(vMe.year,vMe.month-1,1);
k=d1.getDay();
j=Math.abs(vMe.day)+Math.abs(k-1);
o1=document.all("td"+vMe.name+j);
o1.innerHTML=vMe.day;
vMe.day=i;
j=Math.abs(vMe.day)+Math.abs(k-1);
o1=document.all("td"+vMe.name+j);
o1.innerHTML=""+vMe.day+"";
}
break;
case 39:
i=vMe.day;
j=numberOfDays(vMe.year,vMe.month-1);
i=i+1;
if(i>0&&i<=j)
{
d1=new Date(vMe.year,vMe.month-1,1);
k=d1.getDay();
j=Math.abs(vMe.day)+Math.abs(k-1);
o1=document.all("td"+vMe.name+j);
o1.innerHTML=vMe.day;
vMe.day=i;
j=Math.abs(vMe.day)+Math.abs(k-1);
o1=document.all("td"+vMe.name+j);
o1.innerHTML=""+vMe.day+"";
}
break;
}
}
function dispDate(objRL)
{
var o;
var s=objRL.name;
var y=objRL.year;
var m=objRL.month;
var d=objRL.day;
var dd=new Date(y,m-1,1)
var startDay=dd.getDay();
var numDays=numberOfDays(y,m-1);
for (var i=0;i<42;i++)
{
o=document.all("td"+s+i);
if (i>=startDay&&iif (d==i-startDay+1)
o.innerHTML=""+d+"";
else
o.innerHTML=i-startDay+1;
else
o.innerHTML=""
}
}
function clkGrid(src,vMe)
{
var o;
if(src.innerText!="")
{
vMe.day=src.innerText;
var d=new Date(vMe.year,vMe.month-1,vMe.day);
var i=d.getDay();
s=getsweek(i);
o=document.all("txt"+vMe.name);
o.value=vMe.year+"年"+vMe.month+"月"+vMe.day+"日--"+s;
o=document.all("div"+vMe.name);
o.style.display="none";
}
}
function getsweek(i)
{
var s;
switch(i)
{
case 0:
s="星期日";
break;
case 1:
s="星期一";
break;
case 2:
s="星期二";
break;
case 3:
s="星期三";
break;
case 4:
s="星期四";
break;
case 5:
s="星期五";
break;
case 6:
s="星期六";
break;
}
return s;
}
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3
最新文章
微信3.6.0测试版更新了微信支付漏洞会造成哪
360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗
人气排行
xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本
查看所有0条评论>>