Controllare se un anno è bisestile

Questa funzione controlla se un anno, digitato per esempio in una TextBox, sia Bisestile o meno. Restituisce un valore Boolean, Vero se Bisestile Falso se non lo è.

1° Metodo

'*********************************************
'yr = anno da controllare
'*********************************************
Function AnnoBisestile(ByVal yr As Integer) As Boolean
    If ((yr Mod 4) = 0) Then
        AnnoBisestile = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
    End If
End Function

Testato su: Tutti i Sistemi operativi

2° Metodo

'*********************************************
'anno = anno da controllare
'*********************************************
Function AnnoBisestile2(anno As Integer) As Boolean
    'il 29 Febbraio coincide con il 1° Marzo?
    AnnoBisestile2 = DateSerial(anno, 2, 29) <> DateSerial(anno, 3, 1)
End Function

Testato su: Tutti i Sistemi operativi