Dicas - Contando dias úteis entre períodos

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

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;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?