CALCUL DU NOMBRE DE JOURS ENTRE DEUX DATES EN ASP

<%
' ***************************
' Réalisé par Sébastien LAVIT
' ***************************

'Verification si une année est bissextile ou pas
function bissextile(annee)
	i = cint(annee)
	if (i mod 4 = 0 and i mod 100 <> 0 or i mod 400 = 0)then
		bissextile = true
	else
		bissextile = false
	end if
end function

'Calcul du nombre de jours pour chaque année séparant les deux dates
function nbjourannee(date1, date2)
	a1 = cint(date1(2))
	a2 = cint(date2(2))
	if (a1 = a2) then
		nbjourannee = 0
	else
		i = a1
		nbjourannee = 0
		while (i < a2)
			nbjourannee = nbjourannee + 365
			if (bissextile(i)) then
				nbjourannee = nbjourannee + 1
			end if
			i = i + 1
		wend
	end if
end function

'Calcul du nombre de jours par rapport au premier janvier de la date
function nbjanvier(ldate)
	nbmois = array("","0","31","59","90","120","151","181","212","243","273","304","334")
	j = cint(ldate(0))
	m = cint(ldate(1))
	a = cint(ldate(2))
	nbjanvier = cint(nbmois(m)) + j - 1
	if (bissextile(a) and m > 2) then
		nbjanvier = nbjanvier + 1
	end if
end function

'Calcul du nombre de jours entre deux dates
function nbjour(date1, date2)
	nbjour = nbjourannee(date1, date2) - nbjanvier(date1) + nbjanvier(date2)
end function

'Exemple d utilisation :
response.write(" Le nombre de jours entre les deux dates est : " & nbjour(array("12","10","2001"), array("25","12","2050")))
%>