FAQ's del foro de ASP

[Adler]

He estado revisando y parece que este no está

Saber cuantos años, meses y días hay de diferecia entre dos fechas

Código ASP:

Dim fInicio,fFinal,AInicio,AFinal,bis,i,sumadiasBis,segundos,anyos,segundosRestante,meses,dias
fInicio = "09/01/2010"
fFinal = "18/02/2013"
AInicio = 2010
AFinal = 2013
bis = 0
 
' Comprobamos si hay algún año bisiesto. 86400 segundos es un días
For i = AInicio To AFinal
if i mod 4 = 0 then
bis = bis + 86400
else
bis = bis + 0
end if
Next ' i
sumadiasBis = bis
 
Response.Write "Fecha de Inicio " & fInicio & "<br />Fecha Final " & fFinal & "<br /><br />Restan<br />"
 
' Calculamos los segundos entre las dos fechas
segundos = DateDiff("s", fInicio, fFinal)
 
anyos = Fix((segundos-sumadiasBis)/31536000)
Response.Write anyos & " a&ntilde;os<br />"
segundosRestante = (segundos-sumadiasBis) mod (31536000)
 
meses = Fix(segundosRestante/2592000)
Response.Write meses & " meses<br />"
segundosRestante = segundosRestante mod 2592000 ' Suma un día mas por cada años bisiesto
' segundosRestante = (segundosRestante-sumadiasBis) mod 2592000 ' No suma un día mas por cada año bisiesto
 
dias = Fix(segundosRestante/86400)
Response.Write dias & " d&iacute;as"