Segue a função:

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

Outra função interessante sobre dias úteis pode ser encontrada na dica: Calculando o Próximo Dia Útil.

Abraços!

Por: Cristiano Martins Alves (cmainfor)
Contato: cmainfor@gmail.com