Calcul du nombre de jours entre deux dates en asp

Commenter

Contenu du snippet

Ce bout de code permet de calculer le nombre de jours entre deux dates en ASP.
Le code est présenté sous forme d'une page ASP directement utilisable et affichant un résultat.

Source / Exemple : 


<%
' ***************************
' 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")))
%>

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.