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;
Sign up to our newsletter
Receive our latest updates about programming languages, software, database, books, ebooks, classes, jobs and more.
Related articles
Retornando um Dataset ou um Datareader em uma função
Descrição do artigo publicado no aspneti.com, cada artigo com seu resumo
Função StrTrans : Substitui uma string por outra dentro de uma variável string.
Descrição do artigo publicado no aspneti.com, cada artigo com seu resumo