La logica credo sia questa:
Per essere bisestile l'anno deve essere multiplo di 4. Non sono bisestili gli anni di inizio secolo (divisibili per 100) eccetto i multipli di 400 (il 2000 infatti lo era), quindi:
codice:Function VerificaAnnoBisestile (Anno As Integer) As Boolean If Anno Mod 400 = 0 Then VerificaAnnoBisestile = True ElseIf Anno Mod 100 = 0 Then VerificaAnnoBisestile = False ElseIf Anno Mod 4 = 0 Then VerificaAnnoBisestile = True Else VerificaAnnoBisestile = False EndIf End Function![]()