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;