Nombre de jours dans le mois

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 980 fois - Téléchargée 64 fois


Contenu du snippet

Vous donnez le mois et l'annee à la fonction et elle vous retourne le nombre de jours de celui ci

Source / Exemple :


Function NbJourDansMois(LeMois, LeAnnee)
	Select Case (LeMois)
		'Avril, Juin, Septembre, Novembre
		Case 4, 6, 9, 11
			NbJourDansMois = 30
		' Février
		Case 2
			' Si Divisible par 400 alors Bisextile
			if (LeAnnee Mod 4 = 0) And (LeAnnee Mod 100 <> 0) Or (LeAnnee Mod 400 = 0) Then
				NbJourDansMois = 29
			Else
				NbJourDansMois = 28
			End if
		' Les autres mois
		Case Else
			NbJourDansMois = 31
	End Select
End Function

Conclusion :


J'ai retrouvé ça dans mon grenier :)
je vais faire le menage et essayer de mettre ce que je trouve de bien :)

A voir également

Ajouter un commentaire

Commentaires

magnoun
Messages postés
1
Date d'inscription
mercredi 25 mars 2009
Statut
Membre
Dernière intervention
1 avril 2010
-
Date.DaysInMonth(année as integer, mois as integer)
cette syntaxe vous permet d'obtenir le nombres de jours du mois directement.
cs_Hoff
Messages postés
7
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
22 mars 2007
-
Yessss ! J'avais vraiment pas envie de réfléchir ;)

ThX !
FrostByte
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006
-
SuperUtile comme fonction !!
cs_fanny2
Messages postés
19
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
18 octobre 2003
-
merci beaucoup, le genre de ptits trucs qui nous épargnent bien de la peine et du temps.
Ben ?? il est où ce code ????

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.