Nombre de jours dans le mois


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

Du même auteur (Nix)