function Re_Date(dates, s_date, e_date)  s = int(s_date) '구하려는 시작일 1-일, 2-월, 3-화, 4-수, 5-목, 6-금, 7-토  e = int(e_date) '구하려는 끝일 1-일, 2-월, 3-화, 4-수, 5-목, 6-금, 7-토  w = DatePart("w",dates)  dates = CDate(dates)    re_s = DateAdd("d", dates , s - w)    re_e = DateAdd("d", dates , e - w)  Re_Date = "시작일 : " & re_S & "<br>끝일 : " & re_e end function Response.Write Re_Date("2007-09-13",1,7)