Un calendario settimanale
Con questo script visualizzeremo l'intera settimana (da Lunedì a Domenica) partendo da una data specificata:
<%
Sub Settimana(data)
array_giorni = Split("vuoto, Domenica, Lunedì, Martedì, Mercoledì, Giovedì, Venerdì, Sabato", ", ")
oggi = WeekDay(data)
inizio_settimana =DateAdd("d", 2-oggi, data)
For i = 0 to 6
giorno = DateAdd("d", i, inizio_settimana)
response.write array_giorni(Weekday(giorno)) & " " & giorno & "<br>"
Next
End Sub
Session.LCID = 1040
call Settimana (DateSerial(2001, 11, 07))
%>E' molto utile per creare un piccolo calendario, magari collegato ad un database
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
