Sapere quanti giorni sono passati dall'inizio dell'anno corrente

Per sapere quanti giorni sono trascorsi dall'inizio del corrente anno, si potrà utilizzare questa riga di codice:

Public Sub Main()

  Print "Giorni trascorsi sino ad oggi dall'inizio dell'anno:  "; CInt(Now) - CInt(Date(Year(Now), 1, 1))

End

oppure quest'altra:

Public Sub Main()

  Print "Giorni trascorsi sino ad oggi dall'inizio dell'anno:  "; DateDiff(Date(Year(Now), 1, 1, 0, 0, 0, 0), Now, gb.day)

End