Visual Basic para Aplicaciones - Calcular Edad en años, meses y días en visual basic 6.0

Private Sub txt_fecnac_AfterUpdate()

Dim fecActual As Date

Dim fecNac As Date

Dim anos, meses, dias As Long

fecActual = Now

fecNac = CDate(txt_fecnac.Text)

anos = DateDiff("yyyy", fecNac, fecActual)

meses = DateDiff("m", fecNac, fecActual) - (anos * 12)

dias = DateDiff("d", CDate(Day(fecNac) & "/" & (Month(fecActual) - IIf(Day(fecNac) >= Day(fecActual), 1, 0)) & "/" & Year(fecActual)), Now)

txt_edad.Text = anos & "A " & meses & "M " & dias & "D"

End Sub

Option Explicit

'local variable(s) to hold property value(s)

Private mvarFecha As Date 'local copy

Public Function Dias() As Integer

    Dim x As Date

    If DatePart("d", Date) >= DatePart("d", Fecha) Then

        Dias = DatePart("d", Date) - DatePart("d", Fecha)

    Else

        x = DateSerial(DatePart("yyyy", Date), DatePart("m", Date) - 1, DatePart("d", Fecha))

        Dias = DateDiff("d", x, Date)

    End If

End Function

Public Function Meses() As Integer

    Dim Mes As Integer

    Meses = DatePart("m", Date) - DatePart("m", Fecha)

    If DatePart("d", Date) < DatePart("d", Fecha) Then

        Meses = Meses - 1

    End If

    Meses = (Meses + 12) Mod 12

End Function

Public Function Annos() As Integer

    Dim Cumple As Date

    'Edad coincidira con el valor esperado si ya ha cumplido años este año

    Annos = DatePart("yyyy", Date) - DatePart("yyyy", Fecha)

    Cumple = DateSerial(DatePart("yyyy", Date), DatePart("m", Fecha), DatePart("d", Fecha))

    If Cumple > Date Then

        'No ha cumplido años este año, tiene un año menos

        Annos = Annos - 1

    End If

End Function

Public Property Let Fecha(ByVal vData As Date)

'used when assigning a value to the property, on the left side of an assignment.

'Syntax: X.Fecha = 5

    mvarFecha = vData

End Property

Public Property Get Fecha() As Date

'used when retrieving value of a property, on the right side of an assignment.

'Syntax: Debug.Print X.Fecha

    Fecha = mvarFecha

End Property