CONNAITRE LE NOMBRE DE JOUR DANS UN MOIS

'---- Détermine si l'année est bisextiles ou pas ----
function BisexYear(WhichYear)
	if WhichYear/4=int(WhichYear/4) then
		BisexYear=true
	else
		BisexYear=false
	end if
end function




'---- Le nombre de jours dans un mois ----
function xDaysIn(WhichDate)
	Dim xdays
	xDays=array("","31","","31","30","31","30","31","31","30","31","30","31")
	if MONTH(WhichDate)=2 then
		if BisexYear(YEAR(WhichDate))=true then
			xDaysIn=29
		else
			xDaysIn=28
		end if		
	else
		xDaysIn=xDays(MONTH(WhichDate))
	end if
end function