Rafael Pedrosa
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;
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
Membership $5/mo
|
✓ Full articles Subscribe ✓ Write forums ✓ Access podcast ✓ Full jobs opportunities ✓ Access eBooks ✓ Access magazine ✓ Access videos |
Free
|
✓ Open articles ✓ Read forums ✓ Access podcast ｘ Full jobs opportunities ｘ Access eBooks ｘ Access magazine ｘ Access videos |