TROUVER LE DERNIER JOUR D'UN MOIS
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
6 août 2002 à 14:15
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 janv. 2012 à 07:11
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 11 janv. 2012 à 07:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4229-trouver-le-dernier-jour-d-un-mois
https://codes-sources.commentcamarche.net/source/4229-trouver-le-dernier-jour-d-un-mois
11 janv. 2012 à 07:11
10 janv. 2012 à 18:14
si s'est toujours d'actualité
je peut t'aider si tu presise
30 déc. 2010 à 13:53
31 janv. 2008 à 10:33
Bravo aussi à ceux qui ont participé à cet échange, car tout est bon à prendre.
A++++ Chapata
16 oct. 2007 à 08:44
15 oct. 2007 à 22:32
Dim Mydate As Date
Mydate = Date ' ou bien n'import kel autre date
While Month(Mydate) = Month(Date)
LastDey = Day(Mydate)
Mydate = Mydate + 1
Wend
23 juil. 2004 à 14:48
Voici un bout de code trouver sur le web qui fait à peu près la même chose, il a le mérite d'être moins long et d'utiliser une fonction de manipulation des dates pas très connue, DatePart.
Public Function LastDayOfMonth(ByVal ValidDate As Date) As Byte
Dim LastDay As Byte
LastDay = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
DateAdd("d", -DatePart("d", ValidDate) + 1, Date))))
LastDayOfMonth = LastDay
End Function
Même si j'ai trouve autre chose que je pense être plus efficace, c'est ton petit bout de code qui m'a mis sur la piste, alors ne tiens pas trop compte des commentaires désagréables et persévère.
7 avril 2004 à 16:09
Je voulais juste te signalé une petite faille dans ton code sur "Comment trouvé le dernier jour d'un mois". Il faut que tu tiennes compte qu'un tableau commence à l'indice 0 donc, je l'ai corrigée avec
DaysInMonth = Array("0", "31", "28", "31", "30", "31", "30", "31", "31", "30", "31", "30", "31")
Voila. Pe etre t'en étais tu rendu compte.
En tt cas, merci.
Et pour ce qui dise que ca vaut pa + de 1/10, jne suis pa d'accord c pe etre basique mais utile. Alors arreté les commentaires stupides !
6 août 2002 à 14:15