Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/04/2005, 10:15
masterboy6666
 
Fecha de Ingreso: mayo-2004
Mensajes: 183
Antigüedad: 21 años
Puntos: 0
Muchas Gracias, Muzztein, por tu respuesta.
Ya encontre el codigo que soluciona mi problema.

date1 = Now()
date2 = "14/06/1980"
Yr = DateDiff("YYYY" , date2 , date1)
Mt = DateDiff("m" , date2 , date1)
if Mt < 12*Yr then Yr = Yr - 1
Response.Write("Año: " & Yr)