CALCULE LE DERNIER JOUR DU MOIS.

Signaler
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
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/47564-calcule-le-dernier-jour-du-mois

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
VBA et VBS ont leur propre catégorie "globale"
pour le reste c'est c'est selon le code (ici Date & Heure)
avec la case à cocher en plus pour DotNet
Messages postés
33
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
4 février 2015

Au faite ce qui concerne la Catégorie, il n’y a pas de VB6.
Messages postés
33
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
4 février 2015

Bonjour,
Ok pas de probleme.
merci
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
dahbia -> "c'est bon de programmer de temps en temps"
effectivement, mais programmer utile c'est pas plus mal. et chercher un peu avant s'avère aussi souvent bien pratique
PS : ton code est en VB6, pas VBA (cf catégorie de ta source)

jaknight007 -> "dateTest.DaysInMonth" n'existe pas en VB6, tu codes en dotnet. et en dotnet, proprement, c'est "CDate" qui n'existe plus ^^

cette source ne sera pas conservée
++
Messages postés
17
Date d'inscription
mardi 8 mars 2005
Statut
Membre
Dernière intervention
16 août 2014

Salut

J'ai eu le même problème... Mais pas de là à en faire un programme, seulement une petite function.

Private Function AjusterDate(ByVal mMonth As Integer, ByVal mYear As Integer) As Date
Dim dateTest As Date
Dim nbjour As Integer
nbjour = dateTest.DaysInMonth(mYear, mMonth)
dateTest = CDate(mYear & "-" & mMonth & "-" & nbjour)
End Function


ps: C'est du .Net
Messages postés
33
Date d'inscription
mardi 21 décembre 2004
Statut
Membre
Dernière intervention
4 février 2015

Merci pour ce bout d'instruction je l'ai utilisé, mais c'est bon de programmer de temps en temps.
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
43
salut,

faut aimer s'embêter pour rien...
dResult = DateSerial(Year(dDate), Month(dDate) + 1, 0)

ce bout de code est déjà présent sur codyx.org