Problème de récupération d'une partie de dateRésolu

Question

Salut &#224; tous,

J'ai un soucis dans un de mes codes , je mets dans une variable la date du jour et je veux r&#233;cup&#233;rer s&#233;par&#233;ment l'ann&#233;e et le mois , l'ann&#233;e se r&#233;cup&#232;re parfaitement tandis que le mois non. Je demande de r&#233;cup&#233;rer 2 caract&#232;res et il m'en r&#233;cup&#232;re 4 m&#234;me pas &#224; la bonne position. Voici le code :

Dim Ann&#233;e_Du_Jour, Mois_Du_Jour, Date_Du_Jour As Variant

Date_Du_Jour = Date 'Re&#231;oit la date du jour
Mois_Du_Jour = Mid(Date_Du_Jour, 4, 5) 'Re&#231;oit le mois sur 2 caract&#232;res

Si je fais un msgbox du mois il me r&#233;cup&#232;re 02/20 alors que je lui demande 2 caract&#232;res.
J'ai d'abord pens&#233; au type des variables mais ce n'est pas le cas, ce n'est pas un probl&#232;me non plus avec le si&#232;cle car la date du jour est r&#233;cup&#233;r&#233;e sur 10 caract&#232;res.

Alors si quelqu'un &#224; une soluce pour moi il est bienvenue , c'est assez press&#233;.

phantom_2005 · Accepted Answer

>>Marnilla
Petite erreur:
Ann&#233;e_Du_Jour = Format(Date,"yyyy")


--------------------------------------------------------------------------------
Phantom_2005

phantom_2005 · Answer

Mois_Du_Jour = Month(Date)
Ann&#233;e_Du_Jour = Year(Date)

@+

--------------------------------------------------------------------------------
Phantom_2005

Marnilla · Answer

Merci du tuyau , mais en fait j'aurais aim&#233; savoir pourquoi ma m&#233;thode ne fonctionne pas m&#234;me si ce n'est pas la plus simple.
En principe ca devrait fonctionne, je voudrais savoir pourquoi il r&#233;cup&#232;re 4 caract&#232;res alors que je lui demande bien d'en r&#233;cup 2.

Amicalement Marnilla

Marnilla · Answer

De plus je souhaite r&#233;cup&#233;rer "02" et non "2"
Merci

cs_casy · Answer

Mois_Du_Jour = Mid(Date_Du_Jour, 4, 5)



tu ne r&#233;cup&#232;re pas 2 mais 5 caract&#232;res &#224; partir de la position 4





<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

phantom_2005 · Answer

en r&#233;alit&#233; il en r&#233;cup&#232;re 5 (le / est un caract&#232;re)

quand tu fais Mois_Du_Jour =  Mid(Date_Du_Jour, 4,  5 ),

il commence la d&#233;coupe au 4&#232;me caract&#232;re et ce sur 5 caract&#232;res.

Ex 15/ 02/20 05

Pour que ca fonctionne ca aurait pu &#234;tre:
Mois_Du_Jour  = Mid(Left(Date_Du_Jour,5), 4, 5)

Voila j'esp&#232;re que je t'ai pas embrouill&#233;

@+

--------------------------------------------------------------------------------
Phantom_2005

phantom_2005 · Answer

Pour r&#233;cup&#233;rer 02 il y a aussi

Mois_Du_Jour = Format(Date,"mm")
Ann&#233;e_Du_Jour = Format(Date,"aaaa")

@+

--------------------------------------------------------------------------------
Phantom_2005

cs_casy · Answer

Moi j'aurais plutot dit Mois_Du_Jour = Mid(Date_Du_Jour, 4, 2)




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

phantom_2005 · Answer

>>casy
C'est vrai le copier/coller m'a d&#233;rout&#233; mais ca change pas grand chose!


--------------------------------------------------------------------------------
Phantom_2005

Marnilla · Answer

Merci de m'avoir aid&#233; &#224; comprendre mon erreur d'autant que je le savais mais y a des jours de saturation pour tout le monde ce qui nous conduit &#224; des erreurs si absurde.
Merci encore.
Marnilla

Problème de récupération d'une partie de date

10 réponses

Discussions similaires