Discussion :

[liazidf]

Salut,
Je voudrais décoder une date, en année,mois,jour, qqu soit la date, j'obtiens toujours pour le mois '01' et '1905' pour l'année. je voudrais comprendre
merci.

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.SpeedButton1Click(Sender: TObject);
var annee,mois,jour:word;
begin
decodeDate(StrToDate(Maskedit1.Text),annee,mois,jour);
Edit2.Text:=FormatDateTime('yyyy',annee);
Edit3.Text:=FormatDateTime('mm',mois);
 
end;

[neilbgr]

Il te suffit juste de convertir tes variables annee, mois, ... en string :

Code :

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

1
2
Edit2.Text := IntToStr(annee);
Edit3.Text := IntToStr(mois);

[liazidf]

Il te suffit juste de convertir tes variables annee, mois, ... en string :

Code :

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

1
2
Edit2.Text := IntToStr(annee);
Edit3.Text := IntToStr(mois);

Merci de votre réponse, mais je voudrai afficher le mois '07' au lieu de '7', c'est pour ça que j'utilise FormatDateTime,

[neilbgr]

Ok, bin alors voici un exemple :

Code delphi :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  vJour,
  vMois,
  vAnnee: Word;
begin
  DecodeDate(Now, vAnnee, vMois, vJour);
  Edit1.Text := Format('%.2d', [vMois])
end;