Função QtdDiasUteis : Faz o calculo de dias úteis.

Descrição do artigo publicado no aspneti.com, cada artigo com seu resumo

Função QtdDiasUteis : Faz o calculo de dias úteis.

 

Mão na massa:

Declare a função:

function QtdDiasUteis(prDtIni, prDtFim: TDate): Integer;

 

em seguida de um CTRL+SHIFT+C para o editor do delphi completar o seu código .

 

em seguida adicione ao código:

function QtdDiasUteis(prDtIni, prDtFim: TDate): Integer;

var

   mQtdSemanas, mQtdDias : Integer;

   mDataTemp : TDate;

begin

   if prDtFim <= prDtIni then

   begin

      Result := 0;

      Exit;

   end;

 

   mQtdSemanas := Trunc( WeekSpan( prDtIni, prDtFim ) );

 

   mDataTemp := IncDay( prDtIni, mQtdSemanas * 7 );

 

   mQtdDias := 0;

 

   while not SameDate( mDataTemp, prDtFim ) do

   begin

      mDataTemp := mDataTemp + 1;

      if DayOfWeek( mDataTemp ) in [2,3,4,5,6] then

         Inc( mQtdDias );

   end;

 

   Result := ( mQtdSemanas * 5 ) + mQtdDias - QtdFeriados( prDtIni, prDtFim ) ;

end;