Discussion :

[charlene44]

bonjour,

j'ai un petit problème : j'ai des dates stockées dans ma base de données au format date, et avec deux dates j'aimerai trouver le nombre de jours qui les séparent, donc obtenir un entier, comment est-ce que je pourrai faire pour calculer ca? merci d'avance

[Ben_Le_Cool]

Salut,

Tu peux utiliser la fonction DaysBetween. Ca te donne le nombre de jours entiers entre deux TDateTime.

Code :

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

function DaysBetween(const ANow, AThen: TDateTime): Integer;

[e-ric]

La réponse précédente est valable si tu manipules les dates dans le code Delphi sous forme de TDateTime à partir de Delphi 6 sinon

Code :

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

1
2
3
4
5
 
function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Abs(Trunc(AThen) - Trunc(ANow));
end;

est une implémentation envisageable.

Ce type est en fait un réel qui prend en valeur entière le nombre de jours écoulé depuis une date de référence (je ne me souviens pas la valeur) et en valeur fractionnaire l'heure.
Pour obtenir un nombre de jour, il suffit donc de faire la différence entre les deux dates à 00h00.

cdlt

[charlene44]

merci beaucoup, je vais essayer ca!

[edam]

Code :

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

1
2
3
4
5
 
function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Abs(Trunc(AThen) - Trunc(ANow));
end;

est une implémentation envisageable.

mais noublie que ce code va donnée une journé de moins

[charlene44]

ba ca marche en tout cas, merci beaucoup, ca donne ca, j'ai fait un exemple super rapidement pour tester, c'est pas du tout optimisé mais bon c'est pas grave ca donne : ca

[edam]

au contraire ce code donnée par eric que je préfér, et meme quelque fois je change tt les date et les heur en integer pour facilité le calcul

[mafuku]

L'exemple est fait avec deux composants TDatetimePicker qui envoient leurs valeurs vers les variables p1 et p2. Juste un ajout sur ce qui existe déjà.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var D1,D2,p1,p2:TDateTime;
    Year, Month, Day: Word;
    Year1, Month1, Day1: Word;
    Diff:Integer;
begin
  P1:=DateDeb.Date;
  p2:=DateFin.Date;
  DecodeDate(P1, Year, Month, Day);
  DecodeDate(P2, Year1, Month1, Day1);
  D1:=EncodeDate(Year,Month,Day);
  D2:=EncodeDate(Year1,Month1,Day1);
  Diff:=TRUNC(D2-D1);
  Label1.Caption:=IntToStr(Diff);
end;