Este fórum está sendo desativado

[lucas130510]

Senhores, boa noite,

Sou iniciante em vba e estou criando um cadastro de protocolos, neste cadastro o usuário informa a data inicial e a data final, eu necessito acrescentar uma textbox que pegue a data final informada e acrescente 7 dias para mostrar o prazo de vencimento, basicamente... pegar a data que foi informada na data final, acrescentar 7 dias e mostrar como data de vencimento.

Alguém poderia me ajudar ? Segue em anexo o meu projeto.

[Jonathaluis]

lucas130510, bom dia!

Criei um campo e um botão a direita, é só aplicar o código ao campo que precisar.

Espero ter ajudado.

[Kledison]

Bom dia,

uma opção seria colocar o código abaixo:

Código: Selecionar todos

Private Sub caixa_data_final_AfterUpdate()

If Me.caixa_data_final.Text <> "" Then Me.caixavencimento = Format(DateAdd("D", 7, CDate(caixa_data_final.Text)), "dd/mm/yyyy")

End Sub