Fórum Saber qtos dias Úteis / Sábados e Domingos tem num periodo. #196152

Tenta isso daí....

function TForm1.VerificaFimDeSemana(Data: TDateTime): Boolean;
begin
Result := false;
if (DayOfWeek(Data) = 1) then
Result := True;
if DayOfWeek(Data) = 7 then
Result := true
end;

Tenho que fazer algo assim:

Procedure dataSemana(Dt1,Dt2:TDate);
var U,S,D:integer
Begin

while Dt1 > Dt2 do
begin
if Dt1 = Uteis then inc(U);
if Dt1 = Sabada then inc(S);
if Dt1 = domingo then inc(D);
Dt1 := Dt1 + 1;
end;

end;

Porem estou utilizando um Query e trabalho com varias tabelas e gostaria algo mais rápido, pois preciso utilizar estes dados para calculos dos registro.