Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

NOMBRE DE JOURS DANS LE MOIS


Information sur la source

Catégorie :Date/Heure Classé sous : nombre, jour, mois, année Niveau : Débutant Date de création : 03/04/2001 Vu : 6 350

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note


Description

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

Source

  • <%
  • 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
  • %>
<%
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 :)
 

Commentaires et avis

signaler à un administrateur
Commentaire de Mindiell le 06/05/2005 11:14:34

Pour faire plus simple, pour savoir combien le mois actuel possède de jours (ou n'importe quelle date que VB accepte en fait) :

function JoursDuMois()
d1 = Date()
d2 = d1 + 30
d3 = 30-(day(d2)-day(d1))
'Exceptions à cause du mois de Février
if d3=0 OR d3=60 then
JoursDuMois = 31
else
JoursDuMois = d3
end if
end function

Et voilà ^^

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

[URGENT]pb de mise à jour [ par juando ] Bonjour je programme en asp.net avce vb et j'ai un probléme lors de l'ajout de composant dynamique.j'ai deux boutons qui me premette d'incrementer ou récupérer jour et mois [ par maneeo ] Comment récupérer le jour et le mois d'une date au sein d'une base de données SQL SERVEUR en ASP 3 ?Merci à vous. Comparer des dates en ASP [ par Tangtao ] Bonjour à tous,J'aimerai comparer encadrer deux dates avec un enregistrement de ma bd (access).Exemple: je veux tous les enregistrements entre l/10/20 requete sql [ par sticouse ] voila dans ma base de donnée j'ai un champs date de naissance et je voudrais resortir le nombre personne nait dans la meme année mais je voudrais reso valeur nulle [ par manutu ] J ai un petit problemeje développe en ASP avec une base de donnée sql serverPour ce que je suis en train de faire, je dois mettre à jour des champs da LCID, ACCESS et nombre décimal [ par Oscar ] Salut à tous,J'ai un souci avec mes formats de nombres sur un serveur Anglais : Il me met un point là où je veux une virgule. Bien évidement, vous all Please Help me ...... [ par codacode ] Bonjour, voilà je suis un newbies en programmation asp, je tiens à le préciser pour que certains d'entre vous puisse m'aiguiller.Voila je mes le code Navigation par année dans un web form calendar [ par bleuyann ] Bonjour !J'aurais voulu savoir si il y a moyen de naviguer par année dans un calendar (web form) au lieu de passer les 12 mois de l'année en revue pou probleme de connaitre ceux qui ont payés [ par toubaco ] bonjourje developpe une base de donnes access gerant les paiements des eleves pour une ecole prive. si je vous donne la partie en question des mes tab Mise a jour d'une Base acces en cours d'utilisation sur le serveur [ par fht ] Bonjoursur le site ma base acces et souvent en cours d'utilisation et donc indisponiblela mise a jour s'effectue en copiant ma mdb de mon disque vers


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,452 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.