Saber qtos dias Úteis / Sábados e Domingos tem num periodo.
Ola.... Gostaria de saber se alguem sabe uma forma mais rapida de saber qtos dias Úteis / Sábados e Domingos tem num periodo determinado pelo usuário, sem utilizar for.... do data + 1 .....
Colsystem
Curtidas 0
Respostas
Lucas Silva
20/11/2003
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;
function TForm1.VerificaFimDeSemana(Data: TDateTime): Boolean;
begin
Result := false;
if (DayOfWeek(Data) = 1) then
Result := True;
if DayOfWeek(Data) = 7 then
Result := true
end;
GOSTEI 0
Colsystem
20/11/2003
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.
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.
GOSTEI 0