Calcolo dell’anno bisestile.

1
2
3
Dim year As Integer
year = 2004
Label1 = DateSerial(year, 2, 29) <> DateSerial(year, 3, 1)

Restituisce un valore VERO o FALSO


Tags: , ,

Articoli vicini: Prissimo articolo Pensieri : L'egoismo umano.
Articolo precedente [VB6] Convesione basi