Dall'archivio script > Classic ASP

Un calendario settimanale

di Massimo CappellessoMassimo Cappellesso, in Classic ASP, UserScript, Date,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi