bonjour;
j'ai utilisé une base de donnee (une table de Paradox) avec 3 champs, un champ de type D (Date), et les autres de types T (Time).
j'ai utilisé une variable "som" de type TTime initialisé à 0.
la variable "som" est la somme des durée calculer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
for (i=0;i<=Table1->FieldCount;i++)
 {
   ListBox1->Items->Strings[i]= Table1->FieldByName("Date")-> AsString+"   "+Table1->FieldByName("Debut")->AsString+"   "+Table1-> FieldByName("Fin")->AsString;
  som+=(Table1->FieldByName("Fin")->Value)-(Table1->FieldByName("Debut")->Value);
  Table1->MoveBy(1);
 }
 Table1->First();
 Edit2->Text=som;
merci.