神马品牌网圣基茨移民条件:asp 判断两天是否为同一星期
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 14:53:14
asp 判断两天是否为同一星期
你那样做也有不足,你只是看两天的差数,可是这也不一定就能说是同一星期啊,如:上周五和这周一就不是同一周啊
再请问怎么得到某天是这年的第几周
DateDiff("d",Year(Now)&"-01-01",Date())\7+1 这样做好像也是不正确哦~~~~因为也许1月1号是周日,那么1月2号就是第二周啊
你那样做也有不足,你只是看两天的差数,可是这也不一定就能说是同一星期啊,如:上周五和这周一就不是同一周啊
再请问怎么得到某天是这年的第几周
DateDiff("d",Year(Now)&"-01-01",Date())\7+1 这样做好像也是不正确哦~~~~因为也许1月1号是周日,那么1月2号就是第二周啊
dim ds
ds = datediff("d",date1,date2)
if (ds mod 7)=0 then
response.write "为同一星期"
else
response.write "不为同一星期"
end if
注意:date1与date2最好为短日期格式,不要包含小时\分\秒, 你可以对date1和date2作一下日期处理,处理为短日期样式:
date1 = formatdatetime(date1,vbshortdate)
date2 = formatdatetime(date2,vbshortdate)
对问题补充的回答:
不好意思,我以为你是说两个日期是否为同一个星期几,如都是星期一.改下吧:date1与date2的值可以自己写
<%
date1 = date()
date2 = #2006-5-17#
date1num = DateDiff("d",Year(Now)&"-01-01",Date1)\7+1
date2num = DateDiff("d",Year(Now)&"-01-01",Date2)\7+1
if date1num=date2num then
response.write "是同一周"
else
response.write "不是同一周"
end if
%>
第二个问题的答案在上段程序中有出现过哦:第几周 = DateDiff("d",Year(Now)&"-01-01",Date())\7+1