Discussion :

[soror]

Bonjour ;

comment puis-je avoir la date de l'année dernière à partir d'un Tcalendar?

Merci

[PadawanDuDelphi]

Salut,

Tu a la fonction IncMonth prévu pour ça. De tête ca devrait ressembler à ça...

Code :

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

DateAnneeDerniere:= DecodeDate(IncMonth(DateAnneeEnCours),-12);

A+.

[soror]

j'ai fait ce code là mais ça marche pas :

Code :

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

1
2
dateAnneeDerniere:= DecodeDate(IncMonth(dateAnneeEnCours),-12);
DBEdit.Text := DateTimeToString(dateAnneeDerniere);

j'utilise DBEtit pour afficher ma date de l'année dernière

[Cl@udius]

Salut,

Tu peux faire simplement ceci:

Code :

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

1
2
3
4
 
uses DateUtils;
[...]
DateAnneePrecedente := IncYear(DateAnnee, -1);

@+

[PadawanDuDelphi]

Premièrement, je te conseil de n'utiliser les composants DBxxxxx que pour l'affichage de champs d'une base de données.

Si tu utilise une base de données, tu dois agir directement sur le dataset et plus particulièrement sur le champs affiché par ton DBEdit (et faire un rafraichissement des données de ton dataset si nécessaire).
Sinon un simple TEdit suffit.
Donc

Code :

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

DBEdit.Text:=

: a eviter.

Sinon je viens de testr et il y avait effectivement des erreurs sur ce code.
Essaye ça qui fonctionne chez moi :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button2Click(Sender: TObject);
Var
  ExDate: TDateTime;
Begin
  ExDate:= IncMonth(Calendar1.CalendarDate,-12);
  Edit1.Text:= DateToStr(ExDate);
end;

A+.

[Edit]Ouais...on peut aussi utiliser incYear au lieu de IncMonth, mais pourquoi faire simple quand on peut faire compliqué[/Edit]

[ALWEBER]

avec Calendar1: TCalendar;

Code :

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

1
2
3
 
  with Calendar1 do
    Form1.Caption := DateTimeToStr(EncodeDate ( Word(Year-1),Word(Month),Word(Day))) ;

[soror]

VOUS ETES VRAIMENT SYMPA

ça marche