如何得到某段时间的时间范围
比如今天是星期三，如何得到本周的时间范围为2004-8-1至2004-8-7，或者本季度的时间范围。 问题点数：0、回复次数：9Top
1 楼GageCSDN（稻草人）回复于 2004-08-04 09:23:00 得分 0
<script language="JavaScript">
<!--
function getWeekStart(date)
{
var tdate = new Date();
if(!(!date || isNaN(date))) tdate.setTime(date.getTime());
tdate.setTime(tdate.getTime() - tdate.getDay()*24*60*60*1000);
tdate.setHours(0);
tdate.setMinutes(0);
tdate.setSeconds(0);
return tdate;
}
function getWeekEnd(date)
{
var tdate = new Date();
if(!(!date || isNaN(date))) tdate.setTime(date.getTime());
tdate.setTime(tdate.getTime() + (6-tdate.getDay())*24*60*60*1000);
tdate.setHours(23);
tdate.setMinutes(59);
tdate.setSeconds(59);
return tdate;
}
var myDate = new Date("2004/2/1 1:0:0");
alert(getWeekStart(myDate).toLocaleString());
alert(getWeekEnd(myDate).toLocaleString());
alert(getWeekStart().toLocaleString());
alert(getWeekEnd().toLocaleString());
//-->
</script>
Top
2 楼GageCSDN（稻草人）回复于 2004-08-04 09:23:38 得分 0
不好意思,我以为这是JavaScript版~~Top
3 楼afeng888（网海孤航）回复于 2004-08-04 10:52:35 得分 0
用DateAdd函数如何得到本季度的起止日期呢Top
4 楼rueir（Mr.oTo）回复于 2004-08-04 11:06:18 得分 0
<%
Dim Timelong
UseTime = DateDiff("s",Session.Contents("BeginTime"),Session.Contents("EndTime"))
Response.Write(Timelong)
%>Top
5 楼afeng888（网海孤航）回复于 2004-08-04 12:36:36 得分 0
不会真的没有人知道吧，给个思路也好啊Top
6 楼shijian58（大虾龙罢天）回复于 2004-08-04 13:25:36 得分 0
用case 判断Top
7 楼xzq686（★_瞬_★）回复于 2004-08-04 14:14:17 得分 0
不好意思，才看到你的信息。。。给你一个得到本周的时间范围的代码。刚写的。方法笨。你看看吧。本季度的时间范围你可以照着改。。。。
<%
dim w
w=DatePart("w",now())'周几，返回的是数字
'************输入1返回星期日。以下为函数。
function getweek(week)
dim arry(7)
arry(0)="星期日"
arry(1)="星期一"
arry(2)="星期二"
arry(3)="星期三"
arry(4)="星期四"
arry(5)="星期五"
arry(6)="星期六"
getweek=arry(week)
end function
function readstr(weekvalue)
dim datestart,dateend
datestart=dateadd("d",-(weekvalue-1),now())
dateend=dateadd("d",weekvalue-1,now())
readstr="今天是"&getweek(weekvalue)&",本周的时间范围是:"&DatePart("yyyy",datestart)&"-"&DatePart("m",datestart)&"-"&DatePart("d",datestart)&"到"&DatePart("yyyy",dateend)&"-"&DatePart("m",dateend)&"-"&DatePart("d",dateend)
end function
response.Write readstr(w)
response.End
%>Top
8 楼xzq686（★_瞬_★）回复于 2004-08-04 14:16:07 得分 0
你把上面的代码保存一页如：aa.asp
然后在虚拟目录中运行一下看看效果了。。。
效果如下：
今天是星期四,本周的时间范围是:2004-8-1到2004-8-7Top
9 楼xzq686（★_瞬_★）回复于 2004-08-04 14:26:32 得分 0
我把一些具体的东西都写在函数了。
'***************************************************
'************输入1返回星期日。以下为函数。**********
'***************************************************
function getweek(week)
dim arry(7)
arry(0)="星期日"
arry(1)="星期一"
arry(2)="星期二"
arry(3)="星期三"
arry(4)="星期四"
arry(5)="星期五"
arry(6)="星期六"
getweek=arry(week)
end function
'***************************************************
'************输出字符串的函数。**********
'***************************************************
function readstr(weekvalue)
dim datestart,dateend
datestart=dateadd("d",-(weekvalue-1),now())
dateend=dateadd("d",weekvalue-1,now())
readstr="今天是"&getweek(weekvalue)&",本周的时间范围是:"&DatePart("yyyy",datestart)&"-"&DatePart("m",datestart)&"-"&DatePart("d",datestart)&"到"&DatePart("yyyy",dateend)&"-"&DatePart("m",dateend)&"-"&DatePart("d",dateend)
end function
Top
