Dicas Delphi - Calculando o Próximo Dia Útil

Salve, salve


Function ProximoDiaUtil(dData: TDateTime): TDateTime;
begin
if DayOfWeek(dData) = 7 then
Result := dData + 2
else if DayOfWeek(dData) = 1 then
Result := dData + 1
else
Result := dData;
end;


Take care