Connaitre le nombre de jour dans un mois

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 396 fois - Téléchargée 36 fois

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

Ajouter un commentaire

Commentaire

pi0up51
Messages postés
103
Date d'inscription
vendredi 13 juillet 2001
Statut
Membre
Dernière intervention
26 août 2003
-
Toujours des sources ...

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.