Extraire le jour, le mois et l'année à partir d'un TDate

procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(Date,Xyr,Xmo,Xday);
B1.Caption:=IntToStr(Xyr);
B2.Caption:=IntToStr(Xmo);
B3.Caption:=IntToStr(Xday);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour22/11/2001
VisualisationVu 1149 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
arachnosoft arachnosoft
connecté le 02/11/2011
1 articles dans la section
Contacter l'auteur