calendario anno settimane

[agenti]

Ciao a tutti...

ho un probelma logico riguardo l'elenco di tutte le settimane dell'anno


dovrei ottenre uan cosa del genere:

MAGGIO GIUGNO
3 7
10 14
17 21
24 28
31


OVVERO OTTENERE TUTTI I SABATI DI OGNI MESE

per 11 mesi dell'anno.

Nel codice seguente qualcosa non va..
dove sbaglio ?

<%
data_fix = date()
num_data = weekday(date())
num_agg = 7 - num_data 
data_inizio = dateadd("d",num_agg,date())
data_fine = dateadd("m",11,data_inizio)

%>
<style>
#head
{
background-color:#FFFFCC;
border:1px solid:#f2f2f2;
text-align:center;
 }
 #main
{
background-color:#f4f4f4;
font-weight:bold;
 }
</style>
<table border="0" width="100%" style="font-size: 0.9em; border-collapse:collapse" cellpadding="0" id="main">
<tr>
<%
for i= data_inizio to data_fine step 31 
%>
<td>
<table border="0" width="100%" style="border-collapse:collapse" cellpadding="0">
	<tr>
		<td id="head" ><%=UCASE(monthname(month(i)))%></td>
	</tr>
	<tr>
		<td align=center>
		<%
		for z = i to dateadd("d",21, i) step 7
		if day(z) < 10 then
		gg = "0"& day(z)
		else
		gg = day(z)
		end if

		x = z & "|" & dateadd("d",7,z)
		
		response.write gg  & " <input type='checkbox' name='data' value='"&x&"'>
"
		response.write "<input type='text' size=4 >
"
		next
		%>
		</td>
	</tr>
</table>
</td>

<%
next
%>
	</tr>
	</table>

[Roby_72]

Secondo me dovresti partire come giustamente fai dal primo sabato a partire dalla data di oggi ma poi dovresti "semplicemente" aggiungere 7 giorni scorrendo di fatto le settimane fino a quando l'aggiunta di ulteriori 7 giorni non sia superiore alla data di fine che hai impostato.

Roby

[Domenix]

<%
anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12
	response.write monthName(mese) & ": "
	for giorno = 1 to 31
		data = giorno & "/" & mese & "/" & anno
		if isDate(data) then
			if datePart("w",data) = giornoDellaSettimana then
				response.write giorno & " "
			end if
		end if	
	next
	response.write "
"
next
%>

[agenti]

ottima soluzione..

ma così non fa un ciclo di 365 ?

[Mizushi]

Scusate se mi intrometto... ma con lo stesso script di Domenix si possono estrarre soltanto tutti i primi ed i terzi sabati x tutti i mesi dell'anno ?

[Domenix]

Originariamente inviato da Mizushi
Scusate se mi intrometto... ma con lo stesso script di Domenix si possono estrarre soltanto tutti i primi ed i terzi sabati x tutti i mesi dell'anno ?

Certo

<%
anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12
	response.write monthName(mese) & ": "
	cnt = 1
	for giorno = 1 to 31
		data = giorno & "/" & mese & "/" & anno
		if isDate(data) then
			if datePart("w",data) = giornoDellaSettimana then
				if cnt = 1 or cnt = 3 then
					response.write giorno & " "
				end if
				cnt = cnt + 1
			end if
		end if	
	next
	response.write "
"
next
%>

[Mizushi]

Grazie mille, scusa ma come sai l'appetito vien mangiando....
Per escludere tutti i sabati dei mesi di luglio e agosto ?

[agenti]

<%
anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12
if mese < 7 and mese > 8 then
response.write monthName(mese) & ": "
cnt = 1
for giorno = 1 to 31
data = giorno & "/" & mese & "/" & anno
if isDate(data) then
if datePart("w",data) = giornoDellaSettimana then
if cnt = 1 or cnt = 3 then
response.write giorno & " "
end if
cnt = cnt + 1
end if
end if
end if
next
response.write "
"
next
%>

[Mizushi]

Grazie, ma:

Microsoft VBScript compilation error '800a0400'
Expected statement
/calendario.asp, line 64

end if

**************************

Ho corretto così, ma l'operatore nella condizione in rosso non è AND ma OR:

anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "

Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12

if mese < 7 OR mese > 8 then   
   response.write monthName(mese) & ": "
   cnt = 1
   for giorno = 1 to 31
       data = giorno & "/" & mese & "/" & anno
       if isDate(data) then
           if datePart("w",data) = giornoDellaSettimana then
               if cnt = 1 or cnt = 3 then
                   response.write giorno & " "
               end if
               cnt = cnt + 1
           end if
       end if 
   next
   response.write "
"

end if    
next

[Domenix]

<%
anno = datePart("yyyy",date())
giornoDellaSettimana = 7 ' sabato
response.write "Anno: " & anno & "
"
response.write "Selezione giorno: " & weekDayName(giornoDellaSettimana) & "
"
for mese = 1 to 12
	if mese < 7 or mese > 8 then
		response.write monthName(mese) & ": "
		cnt = 1
		for giorno = 1 to 31
			data = giorno & "/" & mese & "/" & anno
			if isDate(data) then
				if datePart("w",data) = giornoDellaSettimana then
					if cnt = 1 or cnt = 3 then
						response.write giorno & " "
					end if
					cnt = cnt + 1
				end if
			end if	
		next
		response.write "
"
	end if
next
%>