Dias úteis entre 2 datas (desconta sábados e domingos)

Function WorkDays_inDates(Dtini, Dtfin: TDateTime): Integer;
var
dias, hoje: Integer;
tmpDt: TDateTime;
begin
dias := 0;
tmpDt := Dtini;
While tmpDt <= DtFin do
begin
Hoje := DayOfWeek(tmpDt);
if not ((Hoje = 1) or (Hoje = 7)) Then
Inc(Dias);
tmpDt := tmpDt + 1;
end;
Result := dias;
end;


p.693