<%
'判断2个日期是否在同一星期中
function Date_OnWeek(date1,date2)
dim Date_Change
if date1>date2 then
Date_Change=date1
date1=date2
date2=Date_Change
end if
if datediff("d",date1,date2)>7 then
Date_OnWeek=false
else
if datediff("d",dateadd("d",-weekday(date1,2),date1),date2)>7 then
Date_OnWeek=false
else
Date_OnWeek=true
end if
end if
end function
%>
工作日志
最新推荐文章于 2021-07-29 11:01:34 发布