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;
Partager