Fórum Função para retornar o quinto dia útil de cada mês #289843

Function PrimeiroDiaUtil(Data : TDateTime) : TDateTime;
//
// Retorna data do primeiro dia Util do mes, de uma data informada
//
var Ano, Mes, Dia : word;
DiaDaSemana : Integer;
begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
DiaDaSemana := DayOfWeek(Data);
if DiaDaSemana = 1 Then
begin
Dia := 2;
end
else if DiaDaSemana = 7 Then
begin
Dia := 3;
end;
Result := EncodeDate (Ano, Mes, Dia);
end;
-----------------------------------------------------------------------------

Function ProximoDiaUtil(dData : TDateTime) : TDateTime;
//
// Retorna o próximo dia útil caso a data informada caia em um fim de semana
//
begin
if DayOfWeek(dData) = 7 then
begin
dData := dData + 2
end
else if DayOfWeek(dData) = 1 then
begin
dData := dData + 1;
end;
Result := dData;
end;

---------------------------------------------------------------