Afficher correctement une date

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:

---

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

Bonjour.

Code:

---

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

---

Cordialement
Thierry

Citation:

---

Envoyé par ThWilliam

Bonjour.

Code:

---

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:

---

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

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:

---

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

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