calendario perenne da lunedì

[fcrisafi]

Ciao a tutti da qualche parte ho trovato un calendario perenne in asp che ho adattato alle mie esigenze.
Questo calendario parte dalla domenica e finisce al sabato. Io vorrei, ma non ci riesco, farlo partire da lunedì.


function giornidelmese(mese, anno)
DataInizio = CDate("01/" & mese & "/" & anno)
DataFine = DateAdd("m", 1, DataInizio)
giornidelmese = DateDiff("d", DataInizio, DataFine)
end function

DataInizio = CDate("01/" & mese & "/" & anno)
for i = 1 to WeekDay(DataInizio)-1
if i = 1 then Response.Write "<tr>"
Response.write "<td height=25></td>"
next

for i = 1 to giornidelmese(mese,anno)
data = Cdate(( i & "/" & mese & "/" & anno))


secondo voi cosa devo modificare per farlo partire dal lunedì?

grazie

[santino83]

ma cos'è un calendario perenne?


prova a mett6ere

for i = 1 to WeekDay(DataInizio,2)-1

[fcrisafi]

peggio ancora ... il calendario ha svalvolato ... adesso ho 8 giorni invece di 7

[santino83]

mi dai lo script completo?

[fcrisafi]

<%
Session.LCID = 1040

If Request("data") ="" then
data = Date()
else
data = CDate(Request("data"))
end if

mese = Month(data)
anno = Year(data)

function giornidelmese(mese, anno)
DataInizio = CDate("01/" & mese & "/" & anno)
DataFine = DateAdd("m", 1, DataInizio)
giornidelmese = DateDiff("d", DataInizio, DataFine)
end function
%>
<table width="280">
<tr align="center" bgcolor="#339900" class="testo">
<td >Do</td>
<td >Lu</td>
<td >Ma</td>
<td >Me</td>
<td >Gi</td>
<td >Ve</td>
<td >Sa</td>
</tr>
<%
DataInizio = CDate("01/" & mese & "/" & anno)
for i = 1 to WeekDay(DataInizio)-1
if i = 1 then Response.Write "<tr class=testog>"
Response.write "<td height=17 class=testo></td>"
next

for i = 1 to giornidelmese(mese,anno)
data = Cdate(( i & "/" & mese & "/" & anno))
if WeekDay(data) = 1 then Response.Write "<tr class=testog>"
Response.Write("<td height=17 align=center bgcolor=F4F4F4>" & i & "</td>")
if WeekDay(data) = 7 then Response.Write "</tr>"
next

for j = WeekDay(Data)+1 to 7
Response.write "<td height=17 class=testog></td>"
if j mod 7 = 0 then Response.Write "</tr>" : exit for
next
%>
</table>

[santino83]

<% 
Session.LCID = 1040 

If Request("data") ="" then 
data = Date() 
else 
data = CDate(Request("data")) 
end if 

mese = Month(data) 
anno = Year(data) 

function giornidelmese(mese, anno) 
DataInizio = CDate("01/" & mese & "/" & anno) 
DataFine = DateAdd("m", 1, DataInizio) 
giornidelmese = DateDiff("d", DataInizio, DataFine) 
end function 
%> 
<table width="280"> 
<tr align="center" bgcolor="#339900" class="testo"> 
<td >Lu</td> 
<td >Ma</td> 
<td >Me</td> 
<td >Gi</td> 
<td >Ve</td> 
<td >Sa</td> 
<td >Do</td> 
</tr> 
<% 
DataInizio = CDate("01/" & mese & "/" & anno) 
for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 

for i = 1 to giornidelmese(mese,anno) 
data = Cdate(( i & "/" & mese & "/" & anno)) 
if WeekDay(data) = 2 then Response.Write "<tr class=testog>" 
Response.Write("<td height=17 align=center bgcolor=F4F4F4>" & i & "</td>") 
if WeekDay(data) = 1 then Response.Write "</tr>" 
next 

for j = WeekDay(Data)+1 to 7 
Response.write "<td height=17 class=testog> </td>" 
if j mod 7 = 0 then Response.Write "</tr>" : exit for 
next 
%> 
</table>

[fcrisafi]

Ottimo il tuo contributo è stato veramente eccellente.
Grazie e a buon rendere

[santino83]

sostituisci

for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next

con

select case WeekDay(DataInizio)

case 1
for i = 2 to 7
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 

case else
for i = 2 to WeekDay(DataInizio)-1
if i = 2 then Response.Write "<tr class=testog>" 
Response.write "<td height=17 class=testo> </td>" 
next 
end select