Página 1 de 1

Utilização de datediff com resposta personalizada

Enviado: 23 Out 2016 às 19:12
por Gilsonbaco
textbox1 com a seguinte informação: Data inicial (20/08/2010)
e na textbox2 já aparece-se a resposta conforma abaixo
Gostaria que a resposta aparece-se nesse formato: 6 ano e 2 mês
Sem estar na plataforma VBA a formula seria essa:
DATADIF(Data_inicial;Data_final;"y")&" ano e "&DATADIF(Data_inicial;Data_final);"ym")& " mês" :D
Estou usando:
If IsDate(textbox1) Then
textbox2 = DateDiff("yyyy", textbox1, Date) & " anos e " & DateDiff("m", textboxi, Date) & " mês"
End If

Porem a resposta aparece como 6 anos e 74 mês :shock:

Estou começando a mexer com VBA e confesso que estou fascinado, porem até chegar lá precisarei de tempo e muito estudo, desde já agradeço.

Atenciosamente,
Gilson

Utilização de datediff com resposta personalizada

Enviado: 23 Out 2016 às 20:34
por DJunqueira
textbox2 = DateDiff("yyyy", textbox1, Date) & " anos e " & DateDiff("m", textboxi, Date) Mod 12 & " mês"

Utilização de datediff com resposta personalizada

Enviado: 24 Out 2016 às 10:03
por Gilsonbaco
:o ficou perfeito, muito obrigado DJunqueira, tenha uma ótima semana!!!!