ele soma DD/MM/YYYY + vc falou pra somar so 15 dias no lugar do "15" cologar 365
vamos fazer um project novo pra vc entende melhor
no form
coloque 3 text e um command
'copia e coloa no seu project
Private Sub Command1_Click()
Text3.Text = Format(DateAdd("d", Text1.Text, Text2.Text), "dd/mm/yyyy")
End Sub
Private Sub Form_Load()
Text2.Text = Format(Now - Data, "dd/mm/yyyy")
End Sub
text2.text 'ele vai carregar a dada atual, mais vc pode cologar gualquer data reipeitando DD/MM/YYYY
text1.tex 'vc cologa de 1 até 365 ou mais dias
depois que vc cologou os seus dia no text.1 click no command1
no text.3 ele vai trazer o resoltado
