Calculo edad de nacimiento

[edidanilo]

hola a todos este es un calculo de la edad de nacimiento hecho en acces tomando en cuenta dias, meses yaños y la respuesta tiene que dar los dias, meses y años exactos para lo cual 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:
ejem1:
año.......mes......dia
2005......08........03 --------> fecha actual
1944......08........25 --------> fecha de nacimiento

Noten que para el calculo tomo en cuanta que los dias actuales son menores de los de nacimiento (3<25), por lo que tomo prestado un mes en dias y le sumo 30 dias al dia actual (3+30) y le resto de fecha de nacimiento ((33)-25)= 8.
y las pruebas unas funcionan y otras no:

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.
edidanilo