Foros del Web » Programando para Internet » ASP Clásico »

Resta de fechas

Estas en el tema de Resta de fechas en el foro de ASP Clásico en Foros del Web. Hola a tod@s Preciso un codigo, q a partir de la fecha de nacimiento, me diga cuantos años tiene tal persona, considerando los meses y ...
  #1 (permalink)  
Antiguo 02/07/2004, 19:13
Avatar de sktrpunk  
Fecha de Ingreso: septiembre-2003
Ubicación: Montevideo
Mensajes: 227
Antigüedad: 20 años, 9 meses
Puntos: 0
Resta de fechas

Hola a tod@s
Preciso un codigo, q a partir de la fecha de nacimiento, me diga cuantos años tiene tal persona, considerando los meses y los dias, no solo restanto los años. Se que hay una funcion para eso, pero probe y no la encontre.
Espero q me puedan ayudar, muchas gracias desde ya

AlvAro
__________________
- Sk8 FoR LiFe -
Stay away from my Black Book
  #2 (permalink)  
Antiguo 02/07/2004, 20:28
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
Hechale un vistazo a la
funcion datediff()
  #3 (permalink)  
Antiguo 04/07/2004, 12:05
Avatar de sktrpunk  
Fecha de Ingreso: septiembre-2003
Ubicación: Montevideo
Mensajes: 227
Antigüedad: 20 años, 9 meses
Puntos: 0
Me sirve
Pero como dije antes, esa funcion no me considera los meses ni los dias; es decir, si consideramos la fecha 1 como 05/07/2002 y la fecha 2 como 04/07/2004; aplicando el formato "yyyy", la funcion me devuelve 2, lo cual no es correcto, pq el segundo año se cumple recien al dia siguiente. Como corrijo esto???
Quizas no estoy utilizando la funcion correctamente.
Espero haberme expresado claramente.
Muchas gracias

AlvAro
__________________
- Sk8 FoR LiFe -
Stay away from my Black Book
  #4 (permalink)  
Antiguo 04/07/2004, 16:49
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
Ok Entendido!

<script language="vbs">
fecha1="02/03/1981" 'haha orharo's birthday
fecha2="04/07/2004"
x=datediff("m",fecha1,fecha2)
if( (datepart("d",fecha1)> datepart("d",fecha2)) and (datepart("m",fecha1)<= datepart("m",fecha2)) )then
x=x-1
end if
if((x/12)<1)then
meses=datediff("m",fecha1,fecha2)
anios=0
else
if(instr(x/12,".")<>0)then
anios=mid(x/12,1,instr(x/12,".")-1)
else
anios=x/12
end if
meses=x mod 12
end if
dias=abs(datepart("d",fecha1)- datepart("d",fecha2))
msgbox anios & " años"
msgbox meses & " meses"
msgbox dias & " dias"
</script>
  #5 (permalink)  
Antiguo 08/07/2004, 19:30
Avatar de sktrpunk  
Fecha de Ingreso: septiembre-2003
Ubicación: Montevideo
Mensajes: 227
Antigüedad: 20 años, 9 meses
Puntos: 0
De acuerdo Gracias

Perfecto
Muchisimas gracias orharo, you rule.
El dos de marzo te mando una tarjeta jejeje
Hasta pronto

AlvAro
__________________
- Sk8 FoR LiFe -
Stay away from my Black Book
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:32.