Discussion :

[jojo86]

Bonjour,

J'aimerai savoir s'il était possible d'ajouter un jour supplémentaire à une date et si oui comment???

Par exemple, si Jour1=26/01/2009, si je veux ajouter 6 Jour à cette date, on passe donc au 1/02/2009, je voudrais savoir si delphi est capable de faire sa...

Merci à vous !

Cordialement,
Jojo!

[Andnotor]

Unité DateUtils, IncDay()

[SergioMaster]

bonjour ,

Bien sur que oui ! rien de complexe

Code :

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

1
2
 
Jour1:=Jour1+6;

Mais tu trouveras aussi des fonctions de manipulation de date dans l'unité DateUtils .

telle que

Code :

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

1
2
 
IncDays(jour1,6);

[jojo86]

Ok...

J'ai plusieurs questions...
La premiere :

Comment proceder pour extraire le jour de la date?
Moi je pensais à un truque du genre (je n'ai pas delphi sous les yeux, mais en gros sa devrais ressembler...) :

Code :

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

1
2
 
JourDate:=DateToStr(Copy(Date,1,2));//Copie le jour

... Je ne vois pas d'autre solution...
Et je ne comprend pas comment utiliser IncDays(jour1,6);

Merci !


PS: je n'ai pas delphi pour le week end car je ne suis pas chez moi, je ne peut donc pas faire de test...

[Andnotor]

Petit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses DateUtils;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Date1 :TDateTime;
  Day, Month, Year :word;
begin
  Date1 := Now;                        //Aujourd'hui
  IncDay(Date1, 7);                    //Date dans 7 jours
  DecodeDate(Date1, Year, Month, Day); //Décodage de la date
end;

[jojo86]

Ok...

Et donc,

Code :

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

  DecodeDate(Date1, Year, Month, Day); //Décodage de la date

C'est le résultat de l'adition?

On pourrait faire ensuite :

Code :

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

1
2
 
TDateTimePicker.Date:=DecodeDate(Date1, Year, Month, Day);

Sa fonctionnerai comme ça??

En faite je pige pas trop la fonction DecodeDate...

[SergioMaster]

non

DecodeDate permet "d'éclater" la date en jour, mois, an
Inc(jour1,7) fait l'ajout de 7 jours dans la variable jour1 soit jour1:=jour1+7
Quand au TDateTimePicker1.Date , c'est une date qu'il attend donc

Code :

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

TDateTimepicker1.Date:=jour1;

Si tu voulais mettre (encoder) une date précise tu mettrais

Code :

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

TDateTimePicker1.Date:=EncodeDate(2008,01,01) // 1 janvier 2008

mais tout ceci est très bien expliquer en utilisant la touche

[jojo86]

Merci beaucoup à tous !!