1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

Réponse 1 / 12
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
Réponse 2 / 12
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
Réponse 3 / 12
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
Réponse 4 / 12
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
Réponse 5 / 12
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
Réponse 6 / 12
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
Réponse 7 / 12
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
 56
Salut,
Et pourquoi 208 pour 2008?

@+: Ju£i?n
Pensez: Réponse acceptée
Réponse 8 / 12
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
Réponse 9 / 12
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
Réponse 10 / 12
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)
Réponse 11 / 12
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 68
DateNew = mid$(DateOld,7,1) & Format$(DateOld, "YYMMDD")
Réponse 12 / 12
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
Répondre Posez votre question