Changer un format de date

Résolu
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008 - 23 avril 2008 à 09:50
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008 - 23 avril 2008 à 11:05
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.
A voir également:

12 réponses

jytest Messages postés 314 Date d'inscription dimanche 27 novembre 2005 Statut Membre Dernière intervention 22 décembre 2014
23 avril 2008 à 10:01
erreur.

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

jyd
3
lillith212 Messages postés 1229 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 16 juin 2009
23 avril 2008 à 10:49
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
3
lillith212 Messages postés 1229 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 16 juin 2009
23 avril 2008 à 11:00
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
3
jytest Messages postés 314 Date d'inscription dimanche 27 novembre 2005 Statut Membre Dernière intervention 22 décembre 2014
23 avril 2008 à 09:56
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jytest Messages postés 314 Date d'inscription dimanche 27 novembre 2005 Statut Membre Dernière intervention 22 décembre 2014
23 avril 2008 à 09:56
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
0
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
23 avril 2008 à 10:24
merci je vais essayer. et je valide si ca marche
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
23 avril 2008 à 10:27
Salut,
Et pourquoi 208 pour 2008?

@+: Ju£i?n
Pensez: Réponse acceptée
0
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
23 avril 2008 à 10:32
bon alors désolé mais ca ne marche pas
J'obtient du 200804 alors que je voudrais du 2080423
0
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
23 avril 2008 à 10:37
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
0
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
23 avril 2008 à 10:55
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)
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 75
23 avril 2008 à 11:04
DateNew = mid$(DateOld,7,1) & Format$(DateOld, "YYMMDD")
0
drik56 Messages postés 127 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 8 juillet 2008
23 avril 2008 à 11:05
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
0
Rejoignez-nous