1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
<%
session.LCID=&H040c
' on créé une date 31 décembre pour avoir le nombre de semaine dans l'année
dim derJour,firstDayOfYear,i ' i sera le compteur de ma boucle for
derJour=dateSerial(year(now),12,31)
firstDayOfYear=weekday(dateserial(year(now),1,1),2)
response.write "<select id='afficheSemaine'>"
response.write "<option value=''> ---------- </option>"
dim nbJour
for i=DatePart("ww",now) to DatePart("ww",derJour)
nbJour=(cint(i)-1)*7+(8-firstDayOfYear)-6 ' Le -6 sert a aller en debut de semaine et non en fin de semaine
response.write "<option value='"&i&"'>"& i &"=>"& dateAdd("d",nbJour-1,dateserial(year(now),1,1))&" ------- "&dateAdd("d",nbJour-1+4,dateserial(year(now),1,1))&"</option>"
next
response.write "</select>"
%> |
Partager