Discussion :

[oasis]

Bonsoir tous le monde,

je voudrai savoir comment faire pour obtenir une date,et ce en ajoutant un entier a une date donnee (ie: date initial+number=date final ex: 20/03/2007 +28= 28/03/2007).

Merci.

[Dirk-Pitt]

Code :

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

Resultat := EncodeDate( 2007, 03, 20 ) + 28;

Resultat va contenir 28.03.2007. Au besoin, utilise les routines de conversion DateToStr et StrToDate.

PS: EncodeDate c'est juste pour l'exemple

[ShaiLeTroll]

euh, le résultat ne serait pas ... 17/04/2007

[Dirk-Pitt]

Bien vu ! Je retourne apprendre mes tables d'addition moi.

[dd_garion]

Pq chercher midi a quatorze heure ?

Tu as ta variable de type tdatetime. Tu lui ajoutes tout simplement la valeur que tu veux et le tour est joué :

Code :

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

1
2
3
4
5
6
7
8
 
var
   myDate : TDatetime;
begin
   showmessage(datetostr(myDate)); //exemple myDate vaut 20/03/2007
   myDate := myDate + 28;
   showmessage(datetostr(myDate)); //affiche 17/04/2007 :D 
end;

[Dirk-Pitt]

C'est ce que je voulais dire ... en plus clair.