'Faça uma aplicação VBA onde o usuário informe a data de seu nascimento e o programa exibe sua idade aproximada em anos. Dica: Use a função datediff.

Sub lista_3()
'Faça uma aplicação VBA onde o usuário informe a data de seu nascimento e o programa exibe sua idade aproximada em anos. Dica: Use a função datediff.

Dim data As Date
Dim msg As String
Dim d1, d2, d3, d4, d5 As Single

data = InputBox(" Digite a Data dd/mm/aaaa que Voce Nasceu ")
msg = " Voce tem " & DateDiff("yyyy", data, Now) & " anos"
MsgBox msg

d1 = DateDiff("d", data, Now)
d2 = DateDiff("m", data, Now)
d3 = DateDiff("yyyy", data, Now)
d4 = DateDiff("s", data, Now)

msg = " Sua idade e : " & vbCrLf
msg = msg & " ============================== " & vbCrLf
msg = msg & " Em dias : " & d1 & " dias " & vbCrLf
msg = msg & " Em meses : " & d2 & " meses " & vbCrLf
msg = msg & " Em anos : " & d3 & " anos " & vbCrLf
msg = msg & " Em segundos : " & d4 & " segundos " & vbCrLf

MsgBox msg, vbOKOnly, " calculando intervalos de datas "

End Sub