Changer un format de dateRésolu

Question

Bonjour, 
J'ai encore besoin de vous.
J'ai dans une mémoire une date sous forme de texte genre "23/04/2008"
Je voudrais récupérer un code date de cette date sous forme "2080423"
Voila ca parait simple a dire mais je me galere.
Merci de votre aide.

jytest · Accepted Answer

erreur.

dateNew = right(dateOld,4) & mid(dtaeOld,4,2) & left(dateOld,2)
...Pardon

jyd

jytest · Answer

bonjour,

il te faut simplement faire /

dim dateOld as String 'Date du premier format
dim dateNew as String 'Date du nouveau format

dateNew = right(dateOld,4) & mid(dateOld,3,2) & left(dateOld,2)

jyd

jytest · Answer

bonjour,

il te faut simplement faire /

dim dateOld as String 'Date du premier format
dim dateNew as String 'Date du nouveau format

dateNew = right(dateOld,4) & mid(dateOld,3,2) & left(dateOld,2)

jyd

drik56 · Answer

merci je vais essayer. et je valide si ca marche

jrivet · Answer

Salut,
Et pourquoi 208 pour 2008?

@+: Ju£i?n
Pensez: Réponse acceptée

drik56 · Answer

bon alors désolé mais ca ne marche pas
J'obtient du 200804 alors que je voudrais du 2080423

drik56 · Answer

salut julien,
208 parce que c'est un code comme ca par défaut et que je ne peu pas le changer donc je doit m'adapter.
Il suffit de virer un 0 mais

lillith212 · Answer

bonjour,

Je propose :
dim dateOld as String 'Date du premier format
dim dateNew as String 'Date du nouveau format

dateNew = mid(dateOld,6,1) & right(dateOld,2) & mid(dateOld,3,2) & left(dateOld,2)

J'ai pas testé...

SLB

drik56 · Answer

salut et Merci lillith 
en partant de ca que tu ma donné j'ai /208/0423
avec : datenew = Mid(dateold, 6, 2) & Right(dateold, 2) & Mid(dateold, 3, 3) & Left(dateold, 2)

lillith212 · Answer

heu... C'est bon ou pas car le code que tu donnes n'est pas celui que j'ai marqué.... :s
Sinon si c'est ok n'oubli pas de valider...
Apres pour obtenir ce que tu cherche il suffit de faire un peu de manipulation de chaine de caracteres.... :)

Bonne prog

SLB

Renfield · Answer

DateNew = mid$(DateOld,7,1) & Format$(DateOld, "YYMMDD")

drik56 · Answer

salut,
lillith => je valide car le code que tu m'a donné m'a aidé je l'ai juste modifier un peu
Voila ce que ca donne:

datenew = Mid(dateold, 6, 2) & Right(dateold, 2) & Mid(dateold, 3, 3) & Left(dateold, 2)
datenew = Replace(datenew, "/", "")

Merci tout le monde

Changer un format de date

12 réponses

Votre réponse