codice:
Dim D as Date
D = Date.Now()
D = D.DayOfYear()