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.