Recherche
Recherche
Les mémos
Je débute...
Visites

 997940 visiteurs

 2 visiteurs en ligne

FAQ
Déplier Fermer  Problèmes de Date

L'appel de la fonction ci-dessous pourrait se faire par :


Utilisation :

Dim iAnnee As Integer
iAnnee = 2006

If EstBissextile(iAnnee) Then

MsgBox "L'année " & iAnnee & " est bissextile"

Else

MsgBox "L'année " & iAnnee & " n'est pas bissextile"

End If


Function EstBissextile(ByVal UneAnnee As Integer) As Boolean

EstBissextile = (UneAnnee Mod 4 = 0 _
                         And (UneAnnee Mod 100 <> 0 Or UneAnnee Mod 400 = 0))

End Function


Dernière modification :24/04/2007 : 05:42 Hyperlien