Discussion :

[freud]

Bonsoir,

Voilà j'ai une chaine de caractere qui contient une date avec l'heure :

Code :

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

1
2
 
'2006/12/12,10:45:15'

j'aimerais ne récuperer de celle-ci que la date et la rendre au format
'dd/mm/yyyy' ou en 'mm/dd/yyyy' puisque celle-ci est au format 'yyyy/mm/dd'
existe-t-il une fonction qui me fait cela ?. Sinon, alors comment inverser ce format de 'yyyy/mm/dd' à 'dd/mm/yyyy' puisque j'arrive à extraire la date mais avec un peu trop de code.

Merci pour votre aide !

[hy00ga]

Hummm... J'ai pas regardé si y a une procédure format à l'envers ... mais j'en ai fait une en vitesse

Code :

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

1
2
3
4
5
6
7
8
function format(date : String) : String;
  var j, m, a : String;
begin
  a := copy(date, 0, 4);
  m := copy(date, 6, 2);
  j := copy(date, 9, 2);
  Result := j + '/' + m + '/' + a;
end;

C'est pas super joli ... mais ca marche

[hy00ga]

Sinon : mais ca j'ai pas testé : la procédure StrToDateTime pour transformer ton string en date puis suivie de formatDateTime pour la formater comme tu veux. Seul problème, la chaine de base doit utiliser le format date/heure local. Donc dans ton cas il faudrait :

1) changer les paramètres d'affichage date et heure local (je sais plus la fonction)
2) Faire le StrToDateTime
3) faire le formatDateTime
4) rétablir les paramètres locaux initiaux.

J'espère que ca t'a aidé

Au plaisir

[freud]

merci beaucoup hy00ga
Ta premiere solution marche trés bien c'est ce que je souhaitais par contre avec la deuxieme :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
d:tdatetime;
s:string;
begin
 
d:=StrToDateTime('2006/12/12,10:45:15');
s:=formatDateTime('dd/mm/yyyy',d);
showmessage(s);
end;

J'obtiens un message d'erreur :

Code :

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

1
2
 
'2006/12/12,10:45:15' is not a valid date and time

Mais en tous cas je suis content puisque la 1ere marche nickel !

Merci encore !

[Linkin]

Il ne faut pas de virgule entre la date et l'heure

Sinon tu peux utiliser le paramètre FormatSettings dans StrToDateTime.