Discussion :

[ninita]

bonjour,

je voudrai récupérer un champs déclaré en alphanumérique de longueur 20 dans une table paradox et le transformer en format date, je ne sais comment le faire, qq'un puet m'aider svp?
voilà un exemple de mon champs dans la table: "Sat 03 Jan 2009"
merci d'avance!

[tourlourou]

tu peux essayer du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ShortDateFormat:='dd mmm yyyy'; // si ShortMonthNames est bien localisé en anglais, sinon traduire les mois...
S:='Sat 03 Jan 2009';
i:=Pos(#32, S); 
S:=Copy(S, i+1, Length(S)-i); // S='03 Jan 2009'
MyDate:=StrToDate(S);

[ninita]

en fait j'ai une table qui a plus de 1000 enregistrements avec plusieurs dates mais celles-ci sont enregistrées avec le format cités dans mon exemple (Sat 03 Jan 2009) et là je voudrai tout convertir en format date et le rendre comme ceci si je reprends mon exemple: Sat 03 Jan 2009 devient 03/01/2009

[tourlourou]

ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ShortDateFormat:='dd/mm/yyyy';
S:=DateToStr(MyDate);

autre possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
S:='Sat 03 Jan 2009';
i:=Pos(#32, S); 
S:=Copy(S, i+1, Length(S)-i); // S='03 Jan 2009'
S:=StringReplace(S, #32, '/', [rfReplaceAll]); // S='03/Jan/2009'
S:=StringReplace(S, Jan, '01', []); // S='03/01/2009'

[ninita]

merci bcp, ça a bien fonctionner sauf que j'ai un petit problème, il se trouve que lors de l'execution le programme j'ai un message qui dit que Jan n'est pas déclaré il ne le remplace pas donc par 01, en plus je n'ai pas que le mois de janvier, j'ai differents mois: Jan, Feb, Mar......Dec, du coup je ne sais comment procéder

[tourlourou]

hi hi !
à toi de faire 12 lignes (1 par mois !) du style où n'on oublie pas les guillements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

S:=StringReplace(S, 'Jan', '01', []);

ce n'est pas le plus élégant, mais ça devrait aller...

[ninita]

bonjour!, merci bcp ça a bien fonctionné pour le mois de janvier, là je dois récupérer les tables pour les autres mois et tout mettre dans une table global, je verrai les résultats que ça donnera.

[ninita]

le résultat est bon, merci bcp