工作日志

<%
'判断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
%>