laurent45
XLDnaute Occasionnel
Bonjour le Forum,
Faisant des recherche pour identifier les années bisextilles en VBA, j'ai trouver ce post :
LaDate étant la date à évaluer et FinAnnee reçoit le nombre de jour de l'année.
Mais, FinAnnee est toujours à 365. J'ai testé avec 2002 et 2006. Rien à faire.
Qu'est-ce que je plante dans mon code ?
Merci
Faisant des recherche pour identifier les années bisextilles en VBA, j'ai trouver ce post :
Je l'ai adapté comme çaRe: !!! Trouver une année bisextille !!!
Auteur: daniel (---.net.external.hp.com)
Date: 09-04-03 10:52
Algorithme
Déterminer si une année est bisextile
-Spécification
Une année bisextile est une année divisible par 4 sauf si elle est divisible par 100 auquel cas elle doit être divisible par 400.
- Implémentation
bisextile x=(x mod 400=0) si x mod 100=0
=(x mod 4)=0 sinon
ou bisextile x=(x mod 4=0) et (x mod 100=0) ou (x mod 400=0)
Code:
If LaDate Mod 4 = 0 And LaDate Mod 100 = 0 Or LaDate Mod 400 = 0 Then
FinAnnee = 366
Else: FinAnnee = 365
End If
Mais, FinAnnee est toujours à 365. J'ai testé avec 2002 et 2006. Rien à faire.
Qu'est-ce que je plante dans mon code ?
Merci