+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: script calendario

  1. #1
    net-addiction non è in linea Scolaretto
    Luogo
    Treviso
    Post
    476
    Ciao a tutti.. ho questo codice che serve da calendario.. l'unico problema è che non RIESCO a fare un link che ricadendo sulla stessa pagina vada al mese successivo o a quello precedente.. avete idee?


    <%
    Giorno = day(now)
    Mese = month(now)
    Anno = year(now)

    MeseNow = month(now)
    %>
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
    <%
    'creo la data iniziale del mese
    DataInizio= "01/" & Mese & "/" & Anno
    Mese = DatePart("M",DataInizio)

    'inizializzo il contatore dei giorni del mese
    CounterDay = 1
    'ciclo scansione settimane
    for Week=0 to 5
    Response.Write("<tr>")
    'ciclo che scandisce i giorni della settimana
    for DayX = 1 to 7
    DayAttuale=Datepart("w",DataInizio,2)
    '2 indica che Lunedi
    if DayAttuale = DayX then
    if Mese=Month(DataInizio) then
    %>

    <%
    'generazione cella calendario
    if CounterDay = Giorno and Mese = Mese then
    ' Coloro la cella per data odierna
    Response.Write ("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#6098D0'>")
    Response.Write ("<b><font face='Verdana' size='2' color='#FFFFFF'><center>" & CounterDay & "</center></font></b>")
    Response.Write ("<br>")
    else
    Response.Write("<td width='100' height='100' style='padding: 0' valign='top' bgcolor='#EFF3F6'>")
    Response.Write ("<b><font face='Verdana' size='2' color='#336699'><center>" & CounterDay & "</center></font></b>")
    Response.Write ("<br>")
    end if
    %>

    <%
    'Chiudo la cella del calendario
    Response.Write ("</td>")
    %>

    <%
    'Continuo con un altro giorno

    DataInizio=dateadd("d",1,DataInizio)
    CounterDay=CounterDay+1
    else
    'se il mese del giorno non e uguale a quello
    'attuale allora il calendario h terminato esco
    'dal ciclo ponendo Week = 5
    Week=5
    end if
    else
    'se il giorno non fa parte del mese
    'attuale stampo una cella vuota
    Response.Write("<td width='100' height='100'> </td>")
    end if
    next
    %>

    <%
    'Chiudo la settimana
    Response.Write("</tr>")
    next
    %>

    <%
    'Chiudo il calendario
    Response.Write("</tr>")
    Response.Write("</table>")
    %>


    ecco il codice.. ciao a tutti
    - The user formerly known as GRiM[R]eaPeR -

  2. #2
    weppos non è in linea Scolaretto
    Luogo
    Italy
    Post
    401
    codice:
    Mese = DatePart("M",DataInizio)
    Ti restituisce Mese che contiene il mese.
    Da questo ottieni agevolmente il mese prima sommando -1 ed il mese dopo sommando +1.

    Occhio al controllo del cambio anno, ovvero, il mese prima di gennaio è 12 non 0.
    Se vuoi, con un po' di matematica modulare scrivi tutto in 3 righe.

+ Rispondi al Thread

Discussioni simili

  1. [ACCESS VBA] Controllo activeX Calendario
    Da andromeda nel forum Access
    Risposte: 4
    Ultimo Post: 24-08-2006, 11:41
  2. calendario da vba
    Da ciapeo nel forum Microsoft Office, Access, VBA
    Risposte: 4
    Ultimo Post: 07-07-2006, 15:15
  3. utilizzo controllo calendario
    Da mdm nel forum Microsoft Office, Access, VBA
    Risposte: 2
    Ultimo Post: 31-05-2006, 09:56
  4. [WORD] Calendario
    Da issorcio nel forum Microsoft Office, Access, VBA
    Risposte: 9
    Ultimo Post: 24-03-2006, 14:54
  5. excel vba. calendario
    Da bristol nel forum Excel
    Risposte: 3
    Ultimo Post: 07-02-2006, 20:47

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi