[WD15] modification d'un format date

Le
laurent.sagot
Bonjour,

J’ai un ancien programme que je dois modifier pour une question de format=
de date dans un fichier txt issue d’une requête oracle.
Jadis la date était sous le format ex : 21 – SEP - 2012
Maintenant je dois le mettre sous forme : 20120921
le format de date de la nouvelle requete est maintenant sous cette forme 20=
120921

Bout du code ancien :
SI Droite(DateDuJour(),2)=15 ALORS
i=0
maxim=27908
MaDate=DateDuJour()
MaDate..Mois-=1
MaDate=Gauche(MaDate,6)+"01"




TANTQUE lignelue<>EOT
SELON Milieu(ExtraitChaîne(lignelue,2),4,3)


CAS "SEP" : Base_Historique.Date=Droite(ExtraitChaîne(lignelue,2),4)+"=
09"+Gauche(ExtraitChaîne(lignelue,2),2)

merci pour votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JeAn-PhI
Le #24779932
avait écrit le 13/09/2012 :
Bonjour,

J’ai un ancien programme que je dois modifier pour une question de format de
date dans un fichier txt issue d’une requête oracle. Jadis la date était
sous le format ex : 21 – SEP - 2012 Maintenant je dois le mettre sous forme :
20120921 le format de date de la nouvelle requete est maintenant sous cette
forme 20120921

Bout du code ancien :
SI Droite(DateDuJour(),2) ALORS
i=0
maxim'908
MaDateÚteDuJour()
MaDate..Mois-=1
MaDate=Gauche(MaDate,6)+"01"




TANTQUE lignelue<>EOT
SELON Milieu(ExtraitChaîne(lignelue,2),4,3)


CAS "SEP" :
Base_Historique.Date=Droite(ExtraitChaîne(lignelue,2),4)+"09"+Gauche(ExtraitChaîne(lignelue,2),2)

merci pour votre aide.



si j'ai bien compris

le code est simplifié maintenant

supprimer le selon ... cas ... fin

et ne mettre que :

Base_Historique.Date=ExtraitChaîne(lignelue,2)

--
Cordialement JeAn-PhI
Publicité
Poster une réponse
Anonyme