En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1121406 visiteurs

 4 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 

Vous êtes ici :   Accueil » FAQ