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;