Dicas - Contando dias úteis entre períodos

Veja nesta dica como contar dias úteis em um determinado período usando delphi 7.

Function Dias_Uteis(DataI,DataF:TDateTime):Integer;

  var contador:Integer;

  begin

if DataI > DataF then

begin

result := 0;

exit

end;

Confiltered= 0;

while (DataI <= DataF) do

    begin

if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then

Inc(Contador);

DataI := DataI + 1

end;

result := Contador;

end;

Artigos relacionados