Nombre de jours dans le mois

0/5 (6 avis)

Snippet vu 32 932 fois - Téléchargée 66 fois


Commenter

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
23 déc. 2010 à 15:57
J'espere que personne va prendre ce code horrible. Une année n'est pas bissexile seulement quand elle est divisible par 400 mdr
Utilisateur anonyme
7 févr. 2009 à 16:34
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
6 juil. 2007 à 13:02
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
2 févr. 2007 à 17:22
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
11 mars 2006 à 14:35
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.
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 (Nix)