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

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;