Lezione N°6 - Countdown con data

Codice nel timer:

     Dim natale As New Date(2010, 12, 25)
     Dim giorni_rimanenti As TimeSpan
     Dim adesso As Date = Now
     giorni_rimanenti = natale.Subtract(adesso)
     Label1.Text = giorni_rimanenti.Days