DominoArea.org [Archive]

son auteur se reconnaîtra et merci à lui

[syntax="ls"]
Function GetBissex (datevigcal As Variant) As Variant
' Déterminer si on a une année bissextile
' Millésime divisible par 4 (Si millésime divisible par 100 , il doit être
divisible par 400 sinon pas bissextile)
' 1900 pas bissextile mais 2000 oui

If (Year(datevigcal) Mod 4 = 0 ) Then
If (Year(datevigcal) Mod 100 = 0 ) Then
If (Year(datevigcal) Mod 400 = 0) Then
Getbissex = 1
Else
Getbissex = 0
End If
Else
Getbissex = 1
End If
Else
Getbissex = 0
End If
End Function
[/syntax]