Calcular añ de nacimiento

[sulyts]

Hola a todos.
La cuestion es: trato de calcular la edad exacta de nacimiento, tomando en cuanta dias, meses y año de nacimientos, de la siguiente manera:
ejemplo:
dia mes año
30 07 2005 --------> fecha actual
31 09 1980 --------> fecha de nacimiento

Noten que para el calculo tomo en cuanta que los dias actuales son menores de los de nacimiento (30<31), por lo que tomo prestado un mes en dias y le sumo 30 dias al dia actual (30+30) y le resto de fecha de nacimiento ((30+30)-31)= 29.El codigo que tengo hecho es:

Private Sub dia_Enter()
If diaactual < dianacimiento Then
dia = diaactual + 30 - dianacimiento
ElseIf diaactual >= dianacimiento Then
dia = diaactual - dianacimiento
End If
End Sub

El problema biene cuando quiero calcular el mes exacto tomando en cuenta que pedi prestado un mes y tengo que restarle al mes actual(7-1) pero a la vez tomar en cuanta si es menor al mes de nacimiento y pedir prestado un año en meses y sumarle (6+12), y por ultimo restarle el mes de nacimiento ((6+12)-9)=9.El codigo que tengo y no sale es:

Private Sub mes_Enter()
If diaactual < dianacimiento Then
mes = mesactual + 11 - mesnacimiento

ElseIf mesactual >= mesnacimiento Then
mes = mesactual - mesnacimiento
End If
End Sub

alguien me podria ayudar con este inconveniente de numeros complejos.
atte.
sulyts..........................

[sulyts]

hola a todos miren que no he recibido respuesta pero he hecho la evaluacion de este calculo de la edad correcta de la siguiente manera aunque sigo teniendo errores cuando los dias son iguales y cuando el mes es menor:

Private Sub Calcular_Click()
If dia_actual < dia_nacimiento Then
variablemes = mes_actual - 1
variabledia = dia_actual + 30
dia = variabledia - dia_nacimiento
Else
dia = dia_actual - dia_nacimiento
End If


If mes_actual < mes_nacimiento Then
variablemes1 = variablemes + 12
variableaño = año_actual - 1
mes = variablemes1 - mes_nacimiento
ElseIf dia_actual < dia_nacimiento Then
variablemes1 = variablemes + 12
variableaño = año_actual - 1
mes = variablemes1 - mes_nacimiento
Else
mes = mes_actual - mes_nacimiento
End If


If mes_actual < mes_nacimiento Then
año = variableaño - año_nacimiento
Else
año = año_actual - año_nacimiento
End If

End Sub


me podrian dar una manito
atte.
sulyts