Dim FNaci As String
Dim FAct As String
Dim Anios As String
Dim Meses As String
Dim Dias As String
FNaci = "20/11/1982"
FAct = "13/08/2007"
Anios = DateDiff(DateInterval.Year, CDate(FNaci), CDate(FAct))
If Month(CDate(FAct)) < Month(CDate(FNaci)) Then
Anios = Anios - 1
ElseIf Month(CDate(FAct)) = Month(CDate(FNaci)) Then
If Day(CDate(FAct)) < Day(CDate(FNaci)) Then
Anios = Anios - 1
End If
End If
Meses = Month(CDate(FAct))
Dias = Day(CDate(FAct))
Me.Label1.Text = Anios & " Años, " & Meses & " Meses, " & Dias & " Dias."
