affichage de l'année en cours dans un TeditRésolu

Question

Comment faire afficher l'ann&#233;e en cours et l'ann&#233;e n-1, n-2... dans un Tedit ?

bv94 · Accepted Answer

Ta fiche comporte un &#233;v&#233;nement onCreate :
Code donc cet &#233;v&#233;nement comme tu le ferais sur le Onclick de ton bouton...

procedure TForm1.FormCreate(Sender: TObject);
var
  annee,moi,jour : word;
begin
  DecodeDate(now,annee,moi,jour);
  Label1.caption := inttostr(annee);
end;

BV94

bv94 · Answer

var
  annee,moi,jour : word;
begin
  DecodeDate(now,annee,moi,jour);
  Edit1.Text := inttostr(annee);
  Edit2.Text := inttostr(annee-1);
end;

BV94

janodelphi · Answer

Je te remercie pour cette r&#233;ponse rapide BV94. Ce code fonctionne &#224; merveille pour faire affichier l'ann&#233;e en cours.
Par contre, au lieu de l'afficher dans un Tedit, je l'affiche dans un Tlabel par label1.caption. Mais je n'arrive pas &#224; faire ex&#233;cuter automatiquement la fonction &#224; l'ouverture d'une form : je suis oblig&#233; de cliquer sur le label pour faire chager le nom de label par 2005. 

Comment faire?

f0xi · Answer

en plus court est sans variables locales grace a FormatDateTime() :



caption := 'juste l''ann&#233;e longue et courte '+FormatDateTime('yyyy (yy)', date);

caption := 'juste le jours texte et chiffre '+FormatDateTime('dddd, dd', date);

caption := 'juste le mois texte et chiffre '+FormatDateTime('mmmm, mm', date);

caption := 'la date complete '+FormatDateTime('dddd dd mmmm (mm) yyyy',date);

Affichage de l'année en cours dans un Tedit

4 réponses

Votre réponse

Discussions similaires