Discussion :

[jop41]

Bonjour
je me remets à Pascal et Lazarus


j'essaie d'afficher la date en cliquant sur un boutton mais la date se n'affiche pas correctement.

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.Text:=datetostr(calendardialog1.date);
end;

et dans mon edit2 ça affiche 4-11-16

Comment faire pour afficher 04/11/2016 ?

Pour info je suis sous Lubuntu 16.04 en 64 bits, Lazarus 1.6 et FPC 3.0.0

Merci

[ThWilliam]

Bonjour.

Code :

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

Edit1.Text:= FormatDateTime('DD/MM/YYYY',CalendarDialog1.Date);

Cordialement
Thierry

[jop41]

Bonjour.

Code :

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

Edit1.Text:= FormatDateTime('DD/MM/YYYY',CalendarDialog1.Date);

Cordialement
Thierry

Bonjour
Avec ton code, c'est mieux mais je n'ai pas les barrres obliques et j'obtiens 04-11-2016

j'ai fait ce code, qui fonctionne, mais je pense que ce n'est pas la bonne solution...

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var x:string;
begin
 x:=FormatDateTime('DD/MM/YYYY',CalendarDialog1.Date);
 x[3]:='/';
 x[6]:='/';
 edit2.Text:=x;
end;

cordialement

[ThWilliam]

Re-bonjour.

Le caractère de formatage "/" affiche en fait le caractère de séparation de date fourni par la variable globale DateSeparator. Si on ne modifie pas cette variable, sa valeur est celle qui est définie dans les paramètres locaux de l'OS. Apparemment, chez toi, cette variable = '-'.
Il faut alors prendre la deuxième "version" de la fonction.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFormatSettings;
begin
   FS.DateSeparator:= '/';
   Edit2.Text:= FormatDateTime('DD/MM/YYYY', Now, FS);
end;

A noter qu'il vaut mieux définir une seule fois le FS dans une variable globale.

Cordialement
Thierry

[jop41]

Merci

Ainsi c'est parfait, mais il faut avouer que ce n'est pas intuitif comme solution.

Ta méthode me permet aussi de ne pas utiliser CalendarDialog1 ce qui est encore mieux

Cordialement