Ciao ragazzi, ho un problema. Ho questo ciclo:
che mi scompone l'ora in 8.00-8.30 8.30-9.00 9.00-9.30 .......fino alle 11codice:For I = 8 to 11 step 0.5 if I=int(I) then strInit=I & ".00" strAdder=I & ".30" else strInit=int(I) & ".30" strAdder=(int(I)+1) & ".00" end if
adesso mi è stato chiesto di cambiare l'agenda, dalle 10.30 alle 13.00 con spazi di 10 minuti. Per comodità potrei anche fare dalle 11.00 alle 13.00 ma sempre con spazi di 10 minuti. Come modifichereste il ciclo? Considerate che dopo il codice continua con:
Devo ripersonalizzare il tutto ma è un lavoro che ho fatto un secolo fa.........Consigli?codice:nn=aMessagesede(I*2) If nn<"A" then aMessagesede(I*2)="a" end if Response.Write "<TR><TD ALIGN='RIGHT' CLASS='MARGIN' WIDTH=100>"&StrInit&"-" &strAdder _ &"</TD><TD WIDTH='30' CLASS='CONTENT'>" &aMessageMOD(I*2) &"</TD><TD WIDTH='150' CLASS='SUBJECT'>" &aMessagesede(I*2) _ &"</TD><TD WIDTH='250'>" &aMessageContent(I*2) &"</TD><TD WIDTH=40><a href='editmessages.asp?code=1&bre="&aMessagesede(I*2)&"&time="&(I*2)&"&date=" _ &dtDate &"'>[img]./images/modify.gif[/img]</a>" &"<a href='editmessages.asp?code=2&bre="&aMessagesede(I*2)&"&time="&(I*2)&"&date=" _ &dtDate &"'>[img]./images/delete.gif[/img]</a></TD></TR>" Next

Rispondi quotando