Discussion :

[zidenne]

salut:

j'ai une liste des heures je veux faire l'addition de ces heures .
exp: 08:00:00
+ 10:30:00
+ 18:30:00
---------------
= 37:00:00
es que c'est possible de faire ça.
merci

[Cl@udius]

Salut,

Je suppose que tu travailles avec des TDateTime ou TTime, dans ce cas tu peux faire ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  TT, T1, T2, T3: TTime;
  nbHeures: Integer;
begin
  T1 := EncodeTime(8,0,0,0);
  T2 := EncodeTime(10,30,0,0);
  T3 := EncodeTime(18,30,0,0);
  TT := T1 + T2 + T3;
  NbHeures := Trunc(TT) * HoursPerDay + HourOf(TT);
  ShowMessage(IntToStr(nbHeures));  // Affiche 37
end;

@+