Quanti giorni mancano a Natale… in ASP!

Home + Articoli + Date e Calendari + Articolo # 146

Concesso in esclusiva a Mr.Webmaster. Vietata la riproduzione.

Grazie alla funzione DateDiff del VBScript possiamo calcolare quanti giorni mancano ad una determinata ricorrenza, come ad esempio il Natale.

Facciamo un esempio base con uno script di prova

<%
    Dim anno, , msg
    anno = Year(Date())
    dif = DateDiff("d", Now(), "25/12/" & anno)
    msg = "Mancano " & dif & " giorni a Natale " & anno & "!"
    Response.Write msg
%>

Stabiliamo "d" come elemento di calcolo della differenza (ovvero i giorni), impostiamo la data corrente e quella con cui calcolare la differenza.

Naturalmente, sulla scorta di questa semplice prova, possiamo sbizzarrirci a modificare e potenziare lo script, ad esempio verificando che non compaia prima di una certa data (è inutile farlo comparire nel mese di luglio!) oppure avvisando che è il giorno della Vigilia, oppure che è proprio Natale, o quel che sia.

Facciamo quindi un esempio un pochino più avanzato

<%
    Dim anno, dif
    anno = Year(Date())
    dif = DateDiff("d", Now(), "25/12/" & anno)
    If dif > 30 Then
        Response.Write "Manca più di un mese a Natale!"
    Else
        If dif > 1 Then
            Response.Write "Mancano " & dif & " giorni a Natale!"
        ElseIf dif = 1 Then
            Response.Write "Oggi è la vigilia di Natale!"
        ElseIf dif = 0 Then
            Response.Write "Auguri di buon Natale!"
        Else
            Response.Write ""
        End If
    End If
%>

Sulla scorta di quanto appresto, lascio a voi il compito di migliorare e potenziare lo script fino ad ottenere l'effetto desiderato.

Buon Natale!

Iscriviti
Cancellati