eu faria assim
considerando q estamos falando em dias uteis (ou seja o dia atual não é sabado ou domingo)eu faria
hoje=format(now,"dd")
estemes=format(now,"mm")
esteano=format(now,"aaaa")
diasuteisquequero=n
diafinal=(int(n/5)*7)+n mod 5+hoje
do
verdiasmes
if diafinal> dias mes then
diafinal=diafinal-diasmes
if estemes=12 then
estemes=0
esteano=esteano+1
else
endif
estemes=estemes+1
else
exit do
endif
loop
diafinal=format(diafinal,"00") & format(estemes,"00")&format(esteano,"0000")
private sub verdiasmes
select case estemes
case 1,3,5,7,8,10,12
diasmes=31
case 4,6,9,11
diasmes=30
case 2
if esteano mod 4=0 then
diasmes=29
else
diasmes=28
endif
end select
endsub
