Boa noite pessoal, Como eu consigo o 1º dia útil a partir de uma certa data Ex. 14/03/2009 no qual seria 16/03/2009, e se essa data estiver cadastrada como feriado na tabela feriados, ele retornasse o próximo dia, é se cair sábado ou domingo segue para a próxima, e assim vai...
Consegui esse na net : Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then // se cair no sábado que é 7 dData := dData + 2 else if DayOfWeek(dData) = 1 then // se cair no domingo que é 1 dData := dData + 1; ProximoDiaUtil := dData; end; proced.... resul := ( ProximoDiaUtil( 14/03/2009)); só que só pega os finais de semanas Alguem pode me ajudar com isso ?