Acrescentando Dia De Vencimento

[marcus Gemeos]

Olá pessoal,

Como faço para acrescentar dias a mais nessa data abaixo, mas que fique certo com o calendário?

Só que tem que ser desse jeito, para que eu possa inverter: AAAA/MM/DD!

Precisso!

Obrigado!

Marcus

VarData_atual = "" & year(Date) & "-" & month(Date) & "-" & day (Date)& ""

If Day(Now)> 9 then

VarDataDia = Day(Now)

Else

VarDataDia = "0" & Day(Now)

End if

If month(Now)> 9 then

VarDataMes = month(Now)

Else

VarDataMes = "0" & month(Now)

End if

If year(Now)> 9 then

VarDataAno = year(Now)

Else

VarDataAno = "0" & year(Now)

End if

[TIO CARNEGO]

Function FormataData(aData)
FormataData=Year(aData)&"/"&String(2-Len(Month(aData)),"0")&Month(aData)&"/"&String(2-Len(Day(aData)),"0")&Day(aData)
End Function

NumeroDeDiasAAcrescentar = 15
DataDeVencimento = FormataData(DateAdd("d", NumeroDeDiasAAcrescentar, Date()))

[bareta]

ai marcos evite ficar postando topicos repetidos com a mesma duvida..... procure ser mais descritivo ao posttar uma pergunta... beleza..

[marcus Gemeos]

Falou moderador! desculpas!