Function Dias_Uteis(DataI,DataF:TDateTime):Integer;
var contador:Integer;
begin
if DataI > DataF then
begin
result := 0;
exit
end;
Confiltered= 0;
while (DataI <= DataF) do
begin
if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then
Inc(Contador);
DataI := DataI + 1
end;
result := Contador;
end;