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
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
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
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" <michel.girard@club-internet.fr> a écrit dans le message de news:
uSAViGtEFHA.2156@TK2MSFTNGP10.phx.gbl...
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
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
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
Merci beaucoup Denis
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
efUG9OtEFHA.2828@TK2MSFTNGP09.phx.gbl...
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" <michel.girard@club-internet.fr> a écrit dans le message
de news:
uSAViGtEFHA.2156@TK2MSFTNGP10.phx.gbl...
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
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
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
"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
''''''''''''''''''' 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
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
Merci beaucoup à toi
Michel
"Gaenonius" <noname@nowhere> a écrit dans le message de news:
OusVoktEFHA.228@tk2msftngp13.phx.gbl...
"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
''''''''''''''''''' 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