Année bissextile

Le
[aicfr]
Bonjour,

Y'a t il un moyen de determiner si une annéé est bissextile
Cordialement,

[aicfr]
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Bul
Le #14673331
If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
année bissextile
[aicfr]
Le #14673311
merci pour votre aide

"Bul" news:%
If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
année bissextile




Bul
Le #14673301
exact, j'ai mal copié.
@+
Pascal B.
Le #14673291
Salut,

Attention, la condition n'est pas correcte
(les années divisibles par 100 NE sont PAS bisextiles)

If (annee Mod 4 = 0 And annee Mod 100 <> 0) Or (annee Mod 400 = 0) Then
année bissextile
End If

Pascal

"Bul" | If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
| année bissextile
|
|
Driss HANIB
Le #14673261
Une méthode simple est de regarder je jour précédent le 1er mars de l'année
choisie.
Si c'est le 29 février l'année est bissextile !! ;o)

du style

JourFinFevrier = cdate("01/03/" & cstr(MonAnnée))-1

et on comparte JourFinFevrier à "29/02/" & Cstr(MonAnnée)

Driss

"[aicfr]" news:c6ibmp$fdb$
Bonjour,

Y'a t il un moyen de determiner si une annéé est bissextile
Cordialement,

[aicfr]




Patrice Henrio
Le #14711021
année_bissextile=( annee Mod 4 = 0 And annee Mod 100 <> 0) Or (annee Mod 400
= 0)


"Pascal B." <pascbr{_AROBASE_}hotmail{_POINT_}com> a écrit dans le message
de news:
Salut,

Attention, la condition n'est pas correcte
(les années divisibles par 100 NE sont PAS bisextiles)

If (annee Mod 4 = 0 And annee Mod 100 <> 0) Or (annee Mod 400 = 0) Then
année bissextile
End If

Pascal

"Bul"

news:%
| If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
| année bissextile
|
|




Pascal B.
Le #14673231
Salut,

On peut aussi utiliser la fonction "isDate":

If isDate("29/02/" & MonAnnee) then
MsgBox "Année bissextile"
Else
MsgBox "Année non-bissextile"
End If

Pascal


"[aicfr]" | Bonjour,
|
| Y'a t il un moyen de determiner si une annéé est bissextile
| Cordialement,
|
| [aicfr]
|
|
Publicité
Poster une réponse
Anonyme