<% 'Judging whether the 2 dates are in the same week Function Date_onweek (Date1, Date2) DIM DATE_CHANGE IF DATE1> DATE2 THEN DATE_CHANGE = DATE11 = DATE2 DATE2 = DATE_CHANGE END 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 ifend function%>
