Получить разницу между двумя датами без выходных

Posted by Chas under Delphi

У меня есть 2 DateTimePicker: Чтобы мне получить разницу между двумя датами я использую trunc, Как сделать, чтобы он выкидывал выходные?

Ann19
Программа заработала!
Но я немного не так делала, вот мой алгоритм:

procedure TForm1.Edit1Change(Sender: TObject);

var

Result: integer;

AllDays: integer;

i: integer;

begin

AllDays:= 
(trunc(DateTimePicker2.Date)-trunc(DateTimePicker1.Date))+1;

Result := AllDays;

for i := 0 to AllDays - 1 do

begin

if DayOfWeek(DateTimePicker1.Date + i) - 1 in [6, 0] then

Result := Result - 1;

end;

Edit1.Text:=IntToStr(Result);

end;