CALCULE LE DERNIER JOUR DU MOIS.

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 11 août 2008 à 14:40
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 12 août 2008 à 13:04

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

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
12 août 2008 à 13:04

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

cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015
12 août 2008 à 09:09

Au faite ce qui concerne la Catégorie, il n’y a pas de VB6.

cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015
12 août 2008 à 08:59

Bonjour,
Ok pas de probleme.
merci

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
11 août 2008 à 15: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
++

jaknight007 Messages postés 17 Date d'inscription mardi 8 mars 2005 Statut Membre Dernière intervention 16 août 2014
11 août 2008 à 15:36

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

cs_dahbia Messages postés 33 Date d'inscription mardi 21 décembre 2004 Statut Membre Dernière intervention 4 février 2015
11 août 2008 à 15:36

Merci pour ce bout d'instruction je l'ai utilisé, mais c'est bon de programmer de temps en temps.

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
11 août 2008 à 14:40

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