Exibir uma data em formulario VBA

[uelis]

Pessoal,

Tenho um formulario no qual eu digito uma data, por EXEMPLO 10/02/2014 e preciso que ele que seja exibido uma "data limite para entrega" de 12 dias uteis antes(contando feriados) ou seja, deve-se exibir uma data de 23/01/2014. Alguem sabe como faço isso em VBA? OBS. uso uma base Access para guardar os dados.

Resumindo...

Digititando uma data especifica, eu quero que seja exibido uma data com 12 dias uteis de antecedencia a essa data e sem contar feriados.

Obrigado!

[Marciel Silva]

uelis, bom dia!

Para ficar mais fácil lhe ajudar, anexe o seu exemplo compactado!

Att,

[uelis]

Marciel bom dia,

Segue o exemplo em anexo.

Visualizando o formulario tem o campo "DATA AUDIENCIA" nele eu vou imputar uma data EX. 10/02/2014 e no campo PREVISÃO ENTREGA ADVOGADO quero que exiba automaticamente uma data com 12 dias uteis de antecendencia no qual ele desconta os feriados tbm, nesse caso exibiria a data 23/01/2014.

Muito Obrigado

[Marciel Silva]

uelis,

Desculpa a demora em respondê-lo!!!

Insira esse código no seu form:

Private Sub nPrevAdv_Enter()

Me.nPrevAdv = CDate(nDataAud.Value) - Weekday(nDataAud.Value) - 12

End Sub

Veja se é exatamente o que deseja. Caso não seja, dê um alô!!!

Att,

[uelis]

Perfeito,

Exatamente isso, só um detalhe, não sei se é possivel, alem de contabilizar os 12 dias uteis, é possivel contabilizar os feriados tbm, caso o feriado esteja nesse periodo de 12 dias? Como o exemplo que dei anteriormente, se nDataAud for = 10/02/2014 nPrevAdv deve exibir 23/01/2014, pois de 23/01 contanto 12 dias uteis + feriados (03/02 e 04/02) a data final fica como 10/02.

Muito obrigado!

[Marciel Silva]

uelis,

Antes você tinha pedido somente os dias úteis. Agora você quer os dias úteis + feriados?
Esse (03/02 e 04/02) você usou como exemplo como sendo feriado?

Att,

[uelis]

Marciel,

Eu havia explicado que eu precisava de dias uteis e feriados.

"Visualizando o formulario tem o campo "DATA AUDIENCIA" nele eu vou imputar uma data EX. 10/02/2014 e no campo PREVISÃO ENTREGA ADVOGADO quero que exiba automaticamente uma data com 12 dias uteis de antecendencia no qual ele desconta os feriados tbm, nesse caso exibiria a data 23/01/2014."

Me desculpe se não fui claro anteriormente. Vou esclarecer mais uma vez:

Quando digitar uma data qualquer no nDataAud quero que no nPrevAdv aparece uma data com 12 dias uteis + feriados(se houver feriado nesse periodo) de antecedencia, no qual citei a data a seguir como exemplo. 23/01/14 são 12 dias antes a data de 10/02/14 descontando feriados e contando somente dias uteis. Uma parte que vc passou esta excelente que é aparecer a data 12 dias uteis antes, agora alem dos 12 dias descontar feriados tbm. Desculpe mais uma vez.

Muito Obrigado.