Por favor ajude-me a corrigir. Eu digito 03/05/2004 adiciono mais 3 anos o calculo me retorna 01/01/2007 não seria o correto 03/05/2007?

Private Sub CalculoAnos()
Dim mData As Date
mData = Format$("01/01/2004", "dd/mm/yyyy")
If IsNumeric(TxtAnos.Text) = True Then
mData = DateAdd("yyyy", CInt(TxtAnos.Text), mData)
End If
LbTermino.Caption = mData
LbTermino.Caption = Format(LbTermino.Caption, "dd/mm/yyyy")
End Sub

 

O cód. abaixo calcula certo, so que da erro na linha 02 (Tipo incorreto)

 

Dim tempo As Date
tempo = FrmLocatario.TxtAnos.Text * 365
FrmLocatario.LbTermino = CDate(FrmLocatario.TxtDataLocacao.Text) + tempo
FrmLocatario.LbTermino.Caption = Format(LbTermino.Caption, "dd/mm/yyyy")

Carinha assim é mais fácil:

 

dim NovaData as Date

 

NovaData=dateadd("y",3,Date)

 

onde 3 é a quantidade de anos a aumentar pode ser substituido por uma variavel

onde Date é uma data pode ser substituido por variavel

 

Y -> Constante ano

m -> Constante mes

d -> Constante dia

h -> Constante hora

n -> Constante minuto

s -> Constante segundo

 

ou seja vc pode adicionar ou diminuir qq coisa de uma data ou hora