Changer un format de date [Résolu]

Question

Posez votre question Signaler

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 - Dernière réponse : 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

Visual Basic 6 Posez votre question Signaler

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.

Afficher la suite

A voir également:

12 réponses

Signaler Commenter la réponse de lillith212

lillith212

Messages postés: 1231
Date d'inscription: vendredi 16 novembre 2007
Statut: Membre
Dernière intervention: 16 juin 2009

1 23 avril 2008 à 10:49

3

Merci

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 208 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de lillith212

lillith212

Messages postés: 1231
Date d'inscription: vendredi 16 novembre 2007
Statut: Membre
Dernière intervention: 16 juin 2009

1 23 avril 2008 à 11:00

3

Merci

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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 208 internautes nous ont dit merci ce mois-ci

Signaler Commenter la réponse de jytest

jytest

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

23 avril 2008 à 09:56

0

Merci

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

Signaler Commenter la réponse de jytest

jytest

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

23 avril 2008 à 09:56

0

Merci

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

Signaler Commenter la réponse de drik56

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

0

Merci

merci je vais essayer. et je valide si ca marche

Signaler Commenter la réponse de jrivet

jrivet

Messages postés: 7401
Date d'inscription: mercredi 23 avril 2003
Statut: Membre
Dernière intervention: 6 avril 2012

45 23 avril 2008 à 10:27

0

Merci

Salut,
Et pourquoi 208 pour 2008?

@+: Ju£i?n
Pensez: Réponse acceptée

Signaler Commenter la réponse de drik56

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

0

Merci

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

Signaler Commenter la réponse de drik56

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

0

Merci

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

Signaler Commenter la réponse de drik56

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

0

Merci

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)

Signaler Commenter la réponse de Renfield

Renfield

Messages postés: 17280
Date d'inscription: mercredi 2 janvier 2002
Statut: Modérateur
Dernière intervention: 21 juillet 2019

57 23 avril 2008 à 11:04

0

Merci

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

Signaler Commenter la réponse de drik56

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

0

Merci

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

jytest · Accepted Answer · 2008-04-23T10:01:02+0200

Meilleure réponse

Signaler Commenter la réponse de jytest

jytest

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

23 avril 2008 à 10:01

3

Merci

erreur.

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

jyd

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 208 internautes nous ont dit merci ce mois-ci

Changer un format de date [Résolu]

Votre réponse