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.

[Art19]

si tu fais:

Code :

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

1
2
3
4
5
6
 
var
    date1, date2: TDateTime;
begin
    date1 := date+1;
    date2 := date+0.5;

date1 vaut le lendemain de date et date2 vaut date + 12 heures..
en gros 1 (l'unite de TDateTime) = 1 jour
0.1 = 1/10 de jour = 0.1*24 = 2.4 heures etc...

[evarisnea]

voir aussi du côté des fonctions IncDay, IncMonth, IncYear, ...

[Tardiff Jean-François]

Bonjour,

Une date/Time est un nombre flottant

1 jour = 1
1 heure = 1/24
1 minute = 1/24/60
1 seconde = 1/24/60/60
1 miliseconde = 1/24/60/60/1000
Rien de plus bas

Comme les TDateTime sont des flottant, vous pouvez faire des addition et/ou soustraction sans aucun problème.

Autrement, comme d'autre vous l'on indiqué, il existe des fonction spécialiser de manipulation de date. C'est surtout important si vous manipuler les mois.(28,29,30 ou 31 jours maxi)