calcular edad en meses de una persona

[Stickmaster2004]

Este código cálcula la edad de una persona si le pasamos la fecha de nacimiento de esta. El cálculo es exacto y en el caso de que una persona hubiera nacido el 27/12/1971 y estuvieramos en el dia 26/12/2001 nos dirá que tiene 29 años.


<%
fecha="1971/12/27" 'Esta es la fecha de nacimiento (En String)
fechanac=year(fecha) & "/" & Month(fecha) & "/" & Day(fecha)
If month(fechanac)>month(date) then
edad=-1
Else
If month(fechanac)=month(date) and day(fechanac)>day(date) then
edad=-1
Else
edad=0
End if
End if
%>
Edad: <%=Datediff("yyyy",fechanac,date)+edad %>


esta es la segunda :


<%
dteNacimiento = "03/20/1976"
IF (Month(dteNacimiento) > Month(Now)) OR (Month(dteNacimiento) = Month(Now) AND day (dteNacimiento) > day(now)) THEN
Anhos = datediff("yyyy",dteNacimiento,now()) - 1
ELSE
Anhos = datediff("yyyy","10/02/1976",now())
END IF
%>



esta es la mia la tercera aunque no esta optimizada tiene algunos detalles por arreglar, despues mando el arreglado


<%

fecha="2004/12/21" 'Esta es la fecha de nacimiento (En String)
fechanac=year(fecha) & "/" & Month(fecha) & "/" & Day(fecha)

if (year(date) > year(fechanac)) and (month(date) >= month(fechanac)) and (day(date) >= day(fechanac)) then
multi=year(date)-year(fechanac)
mes=12*multi
response.write mes-1
else
If (year(date) > year(fechanac)) and (month(date) >= month(fechanac)) and (day(date) < day(fechanac)) then
multi=year(date)-year(fechanac)
mes=12*multi
response.write mes

Else
If (year(date) > year(fechanac)) and (month(date) < month(fechanac)) and (day(date) =< day(fechanac)) then
multi=year(date)-year(fechanac)
real=12*multi
oopps=month(fechanac)-month(date)
mes=real-oopps
response.write mes-1

Else
If (year(date) > year(fechanac)) and (month(date) < month(fechanac)) and (day(date) > day(fechanac)) then
multi=year(date)-year(fechanac)
real=12*multi
oopps=month(fechanac)-month(date)
mes=real-oopps
response.write mes

else

response.write "jodase"
End if
End if
End if
End if
%>