{vb6} anno bisestile

[xegallo]

come faccio a sapere se un determinato anno è bisestile se cioe ha il 29 febbraio o meno

[darkblOOd]

conti i giorni, se sono 366 è bisestile

[sebamix]

' Questa funzione controlla se un anno è bisestile;
Public Function Bisestile(intYear As Integer) As Boolean
    Bisestile = False
    ' 1 Un anno è bisestile se divisibile per 4
    If (intYear Mod 4) = 0 Then
        Bisestile = True
    End If
    ' 2 Non è divisibile però se divisibile per 100
    If (intYear Mod 100) = 0 Then
        Bisestile = False
    End If
    ' 3 è però divisibile per 400
    If (intYear Mod 400) = 0 Then
        Bisestile = True
    End If
End Function

[xegallo]

Originariamente inviato da sebamix

' Questa funzione controlla se un anno è bisestile;
Public Function Bisestile(intYear As Integer) As Boolean
    Bisestile = False
    ' 1 Un anno è bisestile se divisibile per 4
    If (intYear Mod 4) = 0 Then
        Bisestile = True
    End If
    ' 2 Non è divisibile però se divisibile per 100
    If (intYear Mod 100) = 0 Then
        Bisestile = False
    End If
    ' 3 è però divisibile per 400
    If (intYear Mod 400) = 0 Then
        Bisestile = True
    End If
End Function

grazie seba volevo farne anche io una così ma non sapevo ogni quanto è bisestile oltre che ogni 4 anni

[7Mek]

+ semplice
if isdate("29/02/" & anno) = True then bisestile = "si"

ciao