Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%
nYear = 2010
nWeek = 10
dStartDate = DateAdd("ww", nWeek, dateserial(nYear,1,1) )
do while true
if Weekday(dStartDate) = 1 then
exit do
end if
dStartDate = dateadd("d",1,dStartdate)
loop
response.write "The sunday in week " & nWeek & " of " & nYear & " = " & dStartDate
%>
varTempDate = CDate("01/01/" & varYear_Param) - WeekDay("01/01/" & varYear_Param, vbSunday) + 1
varTempDate = varTempDate + 7 * (varWeek_Param - 1)
varDateRange_StartDate=varTempDate
varDateRange_EndDate=DateAdd("d",6,varDateRange_StartDate)