Nombre de jours dans le mois

Soyez le premier à donner votre avis sur cette source.

Snippet vu 30 303 fois - Téléchargée 63 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

frite333
Messages postés
9
Date d'inscription
lundi 30 novembre 2009
Statut
Membre
Dernière intervention
23 décembre 2010
-
J'espere que personne va prendre ce code horrible. Une année n'est pas bissexile seulement quand elle est divisible par 400 mdr
Relax62
Messages postés
83
Date d'inscription
vendredi 2 avril 2004
Statut
Membre
Dernière intervention
8 juillet 2012
1 -
Bonjour,

désolé de resortir le post du grenier, mais on peut faire aussi comme ça :

NbJourMoisCourant = Day(DateSerial(Year(UneDate), Month(UneDate) + 1, 0))
Nicodemus83
Messages postés
1
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
6 juillet 2007
-
Heu... SOPALAIN... qu'est ce qui se passe lorsque je passe le mois de décembre ? on fait la différence entre le 01/12/AAAA et le 01/13/AAAA ?
le5ejumeau
Messages postés
130
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
9 juillet 2009
-
heu en .net on fait comme ca : Date.DaysInMonth(Y, M) avec y c'est l'année et M le mois
ca existait pas avant ça ?
cs_SOPALAIN
Messages postés
2
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
11 mars 2006
-
De Sopalain :

Pardon j'ai oublié de corriger la première ligne que j'avais tout simplement copiée,
Bien sûr il faut lire :

Function NbJourDansMois(LeMois, Lannée)

mais je suis ceratin vous aviez corrigé de vous même.

Sopalain.

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.