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 | |
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" <marcel.bultez@spamtiscali.fr> wrote in message news:%23rtlZ61KEHA.1264@TK2MSFTNGP12.phx.gbl...
| If (annee Mod 4 = 0 And annee Mod 100 = 0) Or (annee Mod 400 = 0) Then
| année bissextile
|
|
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 | |
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] | |
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]" <kheraud@cartolux-thiers.com> wrote in message news:c6ibmp$fdb$1@s1.read.news.oleane.net...
| Bonjour,
|
| Y'a t il un moyen de determiner si une annéé est bissextile
| Cordialement,
|
| [aicfr]
|
|