[VB6] Verificare se un anno è bisestile

[scarob]

Come si fa a verificare se un anno è bisestile?

[Luciano79]

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:

 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

[xegallo]

if isdate("29/02/"& year(date))then
'anno bisestile
end if

[scarob]

grazie!!!