Discussion :

[Yepazix]

Hello,
Voila mon problème, j'ai une date qui me vient d'un Monthcalendar et je voudrais faire un code sous forme de boucle pour avoir la date de la veille et les trois dates qui suivent.
Y a t'il un tuto qui parle spécifiquement de la manipulation des dates et qui pourrait m'expliquer comment faire un truc du genre

for x=-1 to 4
dateconcernée=datedemonthcalendar+x
traitement de dateconcernée

dans cet exemple si datedemonthcalendar est 15/01/2005
je voudrais que dateconcernée devienne
14/01/2005 à la première exécution de la boucle.
15/01/2005 à la seconde
16/01/2005 a la troisième
17/01/2005 à la quatrième

Quelqu'un a t'il une suggestion ?

[Selve]

Bonjour

Voici un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
Var DateDuJour,veille,lendemain,surlendemain : Tdate ;
begin
   DateDuJour:= Now;
   Veille:=DateDuJour-1;
   Lendemain:=DateDuJour+1;
   Surlendemain:=DateduJour+2;
   Edit1.Text:= DateToStr(DateDujour);
   Edit2.Text:=DateToStr(Veille);
   Edit3.Text:=DateToStr(lendemain);
   Edit4.Text:=DateToStr(surlendemain);
end;

Bye

[Yepazix]

Un grand merci pour ce bout de code, il ne me pose aucun probleme et je connaissais d'ailleurs cette technique et sur base de cela je fais actuellement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
début de ma procédure
datedujour:=Monthcalendar1.date;
dateatraiter:=datedujour-1;
(...) tout mon traitement (...)
dateatraiter:=datedujour;
(...) tout mon traitement (...)
dateatraiter:=datedujour+1;
(...) tout mon traitement (...)
dateatraiter:=datedujour+2;
(...) tout mon traitement (...)
fin de ma procédure

Mais je voudrais plutôt pouvoir faire un truc du genre

Code :

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

1
2
3
4
5
6
7
Début de ma procédure
datedujour:=Monthcalendra1.date;
for comptage=-1 to +2 do Begin
dateatraiter:=datedujour+ou-comptage;
(...) tout mon traitement (...)
end;
fin de ma procédure.

Mais je n'arrive pas à mettre en place ce genre de code, je pense que je ne maitrise pas la syntaxe car je m'embrouille.

[SubZero2]

Voila ce qu'il te faut :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
   i: integer;
   MyDate: TDate;
begin
   MyDate := Date;
   for i := -1 to 2 do
      ListBox1.Items.Add(DateToStr(MyDate+i));
end;