OVH Cloud OVH Cloud

Année bisextille

4 réponses
Avatar
Michel.Girard
Bonsoir
J'ai un combobox1 dans lequel, je sélectionne des dates Ex 2005 ou 2006 etc.
Je souhaite avoir dans un label si c'est une année bissextile ou non
j'essaie avec la procédure Change, mais je cherche la syntaxe.
Merci beaucoup
Michel

4 réponses

Avatar
MichDenis
Bonjour Michel,

Tu peux utiliser ceci : Une fonction publiée par Frédéric Sigonneau

'--------------------
Sub Appel()
MsgBox IsBissextile(2000)
End Sub
'--------------------

'--------------------
Function IsBissextile(An)
IsBissextile = IsDate("29/2/" & An)
End Function
'--------------------

Salutations!



"Michel.Girard" a écrit dans le message de news:

Bonsoir
J'ai un combobox1 dans lequel, je sélectionne des dates Ex 2005 ou 2006 etc.
Je souhaite avoir dans un label si c'est une année bissextile ou non
j'essaie avec la procédure Change, mais je cherche la syntaxe.
Merci beaucoup
Michel
Avatar
Michel.Girard
Merci beaucoup Denis
Michel

"MichDenis" a écrit dans le message de news:

Bonjour Michel,

Tu peux utiliser ceci : Une fonction publiée par Frédéric Sigonneau

'--------------------
Sub Appel()
MsgBox IsBissextile(2000)
End Sub
'--------------------

'--------------------
Function IsBissextile(An)
IsBissextile = IsDate("29/2/" & An)
End Function
'--------------------

Salutations!



"Michel.Girard" a écrit dans le message
de news:

Bonsoir
J'ai un combobox1 dans lequel, je sélectionne des dates Ex 2005 ou 2006
etc.
Je souhaite avoir dans un label si c'est une année bissextile ou non
j'essaie avec la procédure Change, mais je cherche la syntaxe.
Merci beaucoup
Michel







Avatar
Gaenonius
"Bon" & IIf(Hour(Now) < 19, "jour", "soir"),

Ou aussi :

Indépendante d'Excel :

'''''''''''''''''''
Function IsBissextile2(An)
IsBissextile2 = (An Mod 400 = 0) Or _
(An Mod 4 = 0 And (Not An Mod 100 = 0))
End Function
'''''''''''''''''''

Variation sur le traitement des dates par Excel/VBA :

'''''''''''''''''''
Function IsBissextile3(An)
IsBissextile3 = (Day(DateSerial(An, 2, 29)) = 29)
End Function
'''''''''''''''''''

--
Gaenonius

Bonsoir
J'ai un combobox1 dans lequel, je sélectionne des dates Ex 2005 ou 2006 etc.
Je souhaite avoir dans un label si c'est une année bissextile ou non
j'essaie avec la procédure Change, mais je cherche la syntaxe.
Merci beaucoup
Michel






Avatar
Michel.Girard
Merci beaucoup à toi
Michel

"Gaenonius" a écrit dans le message de news:

"Bon" & IIf(Hour(Now) < 19, "jour", "soir"),

Ou aussi :

Indépendante d'Excel :

'''''''''''''''''''
Function IsBissextile2(An)
IsBissextile2 = (An Mod 400 = 0) Or _
(An Mod 4 = 0 And (Not An Mod 100 = 0))
End Function
'''''''''''''''''''

Variation sur le traitement des dates par Excel/VBA :

'''''''''''''''''''
Function IsBissextile3(An)
IsBissextile3 = (Day(DateSerial(An, 2, 29)) = 29)
End Function
'''''''''''''''''''

--
Gaenonius

Bonsoir
J'ai un combobox1 dans lequel, je sélectionne des dates Ex 2005 ou 2006
etc.
Je souhaite avoir dans un label si c'est une année bissextile ou non
j'essaie avec la procédure Change, mais je cherche la syntaxe.
Merci beaucoup
Michel