QUANTIDADE DE MESES
Olá Pessoal, estou tentando converter a quantidade de meses em uma data final...
tenho 60 meses, quero saber a data final, claro tendo uma data inicial...
estou tentando assim..
Private Sub Command1_Click()
Dim Data As Date
Data = Format(Text1.Text, [Ô]mm/yyyy[Ô])
[ô]Acrescentando 60 meses a data em questão
LblData.Caption = DateAdd([Ô]m[Ô], 60, Data)
End Sub
[txt-size=5]Onde quero que mostre apenas MÊS e ANO -->> 10/2015[/txt-size]
está me retornando dia mês e ano...
tenho 60 meses, quero saber a data final, claro tendo uma data inicial...
estou tentando assim..
Private Sub Command1_Click()
Dim Data As Date
Data = Format(Text1.Text, [Ô]mm/yyyy[Ô])
[ô]Acrescentando 60 meses a data em questão
LblData.Caption = DateAdd([Ô]m[Ô], 60, Data)
End Sub
[txt-size=5]Onde quero que mostre apenas MÊS e ANO -->> 10/2015[/txt-size]
está me retornando dia mês e ano...
datafinal = format(DateAdd([Ô]m[Ô], 60, date),[Ô]mm/yyyy[Ô])
coloca do jeito que está ai em cima, copia e cola.
coloca do jeito que está ai em cima, copia e cola.
Private Sub Command1_Click()
Dim Data, data2 As Date
Data = Format(Text1.Text, [Ô]mm/yyyy[Ô])
[ô]Acrescentando 60 meses a data em questão
data2 = DateAdd([Ô]m[Ô], 60, Data)
LblData.Caption = Format(data2, [Ô]mm/yyyy[Ô])
End Sub
Dim Data, data2 As Date
Data = Format(Text1.Text, [Ô]mm/yyyy[Ô])
[ô]Acrescentando 60 meses a data em questão
data2 = DateAdd([Ô]m[Ô], 60, Data)
LblData.Caption = Format(data2, [Ô]mm/yyyy[Ô])
End Sub
Tópico encerrado , respostas não são mais permitidas