Dias úteis em um intervalo de datas

Fonte: www.activedelphi.com.br

Veja nesta dica uma pequena função para nos retornar quantos dias úteis existem entre duas datas. A função percorre todos os dias do intervalo, para contar quantos dias existem que não sejam sábados ou domingos.

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;