|
| Convertion de date mail en date |
| Débuté par nerim.news, 15 déc. 2004 15:26 - 3 réponses |
| |
| | | |
|
| |
| Posté le 15 décembre 2004 - 15:26 |
Salut,
j'essaye de convertir la date d'un mail qui est au format :
Tue, 14 Dec 2004 11:51:10 +0100
dans un format classique comme : 14/12/01 à 11:51 par exemple
Comment faire pour cela ???
Merci |
| |
| |
| | | |
|
| | |
| |
| Posté le 15 décembre 2004 - 16:56 |
Utilise les fonctions "Gauche", "Droite" et "Milieu" pour extraire les
différentes portions qui t'intéressent
--
Bon dév'
Hervé
"Vincent" <nerim.news@laposte.net> a écrit dans le message de news:
cppe1t$2oha$1@biggoron.nerim.net...
Salut,
j'essaye de convertir la date d'un mail qui est au format :
Tue, 14 Dec 2004 11:51:10 +0100
dans un format classique comme : 14/12/01 à 11:51 par exemple
Comment faire pour cela ???
Merci |
| |
| |
| | | |
|
| | |
| |
| Posté le 15 décembre 2004 - 17:18 |
Si la structure est toujours la même, il faut analyser les parties à transformer.
Dans le cas présent:
Nbre,PosDep sont des entiers
Nbre=Val(Milieu(DateMail,6,2)) // Jour
Si Nbre>9 Alors // 2 chiffres dans le jour
Gauche(DateWindev,2))=Milieu(DateMail,6,2)
Sinon
Gauche(DateWindev,2))="0"+Milieu(DateMail,6,1)
Fin
Si Nbre>9 Alors
PosDep=9
Sinon
PosDep=8
Fin
Selon Milieu(DateMail,PosDep,3) // Mois
Cas "Jan": Milieu(DateWindev,5,2)="01"
Cas "Fev": Milieu(DateWindev,5,2)="02"
Cas ...
Fin
Si Nbre>9 Alors
PosDep
Sinon
PosDep
Fin
Droite(DateWindev,4)=Milieu(DateMail,PosDep,4)
On obtient de la sorte une date au format Windev 'AAAAMMJJ' à transformer avec DateVersChaine(...) |
| |
| |
| | | |
|
| | |
| |
| Posté le 15 décembre 2004 - 18:18 |
Mille excuses...
Je me suis gourré: il faut lire Gauche(DateWindev,...) à la place de Droite(DateWindev,...) et vice-versa... (Je suis dyslexique !!!) |
| |
| |
| | | |
|
| | | | |
| | |
|