function GetNbDayOfWeek(const Date1, Date2 : TDate): integer; var DateInt : TDate; DateEnd : TDate; iNbDay : integer; begin // Vérifie que date1 est plus petit que Date2. if Date1 < Date2 then begin DateInt := Date1; DateEnd := Date2; end else begin DateInt := Date2; DateEnd := Date1; end; iNbDay := 0; repeat // Si la date est infèrieur à 6 c'est que cest un jour de la semaine. if DayOfTheWeek(DateInt) < 6 then inc(iNbDay); // On Ajoute un jour à la Date intermédaire. DateInt := DateInt + 1; until (DateInt > DateEnd); Result := iNbDay; end;