Connaitre le nombre de jour dans un mois

Commenter

Contenu du snippet

Tout est dans le titre...

Source / Exemple : 


'---- 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

Conclusion :


A#
vBt0m.

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.

Du même auteur (vbtom)