Changer un format de date [Résolu]

Signaler
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008
-
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008
-
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.

12 réponses

Messages postés
315
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
22 décembre 2014

erreur.

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

jyd
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
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
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
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
Messages postés
315
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
22 décembre 2014

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
Messages postés
315
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
22 décembre 2014

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
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

merci je vais essayer. et je valide si ca marche
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
48
Salut,
Et pourquoi 208 pour 2008?

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

bon alors désolé mais ca ne marche pas
J'obtient du 200804 alors que je voudrais du 2080423
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

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
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

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)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
64
DateNew = mid$(DateOld,7,1) & Format$(DateOld, "YYMMDD")
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

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