Discussion :

[joreveur]

Bonjour,

j’essaie d'afficher la date du jour exemple sous cette forme 2015/04/17
mais le programme m'affiche 2015-04-17
pour arriver à mes fins je suis obligé de reformater par des copy(

Ma question: il n'y a pas une autre méthode plus intégrée ?

Merci de vos conseils et bien cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program TestDate;
Uses sysutils;
Var z:string;
Begin
 
  // affiche 2015-04-17 malgré les /
  Writeln ('Date1 : ',FormatDateTime('YYYY/MM/DD',Now));	
 
  z:=FormatDateTime('YYYYMMDD',Now);
 
  // affiche 2015/04/17 après reformatage
  Writeln('Date2 : '+copy(z,1,4)+'/'+copy(z,5,2)+'/'+copy(z,7,2));
  Readln;
End.

[yamer]

Bonjour,

j’essaie d'afficher la date du jour exemple sous cette forme 2015/04/17
mais le programme m'affiche 2015-04-17
pour arriver à mes fins je suis obligé de reformater par des copy(

Ma question: il n'y a pas une autre méthode plus intégrée ?

Ma boule de cristal me dit que ce problème se pose sous Linux. J'espère quelle est bien réglée...

Sous Linux il faut inclure l'unité clocale pour que la date soit adaptée à la langue de l'utilisateur.

http://www.freepascal.org/docs-html/...ale/index.html

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
program TestDate;
uses
  {$ifdef UNIX}
  clocale,
  {$endif}
  sysutils;
var z:string;
begin
  // affiche 2015-04-17 malgré les /
  Writeln ('Date1 : ',FormatDateTime('YYYY/MM/DD',Now));	
 
  z:=FormatDateTime('YYYYMMDD',Now);
 
  // affiche 2015/04/17 après reformatage
  Writeln('Date2 : '+copy(z,1,4)+'/'+copy(z,5,2)+'/'+copy(z,7,2));
  Readln;
end.

[joreveur]

Bonjour yamer
oui la solution est la bonne j'ai refait le test et ça fonctionne.

effectivement je suis sous Linux et je n'avais pas pensé que cela pour pouvait venir de cela sinon je l'aurais mentionné.

Merci de ton aide !