Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Année bissextile

Année bissextile

7 réponses
Avatar
[aicfr]
Bonjour,

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

[aicfr]
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bul
If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
année bissextile
Avatar
[aicfr]
merci pour votre aide

"Bul" a écrit dans le message de
news:%
If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
année bissextile




Avatar
Bul
exact, j'ai mal copié.
@+
Avatar
Pascal B.
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" wrote in message news:%
| If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
| année bissextile
|
|
Avatar
Driss HANIB
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]" a écrit dans le message de
news:c6ibmp$fdb$
Bonjour,

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

[aicfr]




Avatar
Patrice Henrio
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" wrote in message


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




Avatar
Pascal B.
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]" wrote in message news:c6ibmp$fdb$
| Bonjour,
|
| Y'a t il un moyen de determiner si une annéé est bissextile
| Cordialement,
|
| [aicfr]
|
|