FAQ
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))
And (UneAnnee Mod 100 <> 0 Or UneAnnee Mod 400 = 0))
End Function