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!