CALCULE LE DERNIER JOUR DU MOIS.
PCPT
Messages postés
13272
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 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 12 août 2008 à 13:04
PCPT Messages postés 13272 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
https://codes-sources.commentcamarche.net/source/47564-calcule-le-dernier-jour-du-mois
12 août 2008 à 13:04
pour le reste c'est c'est selon le code (ici Date & Heure)
avec la case à cocher en plus pour DotNet
12 août 2008 à 09:09
12 août 2008 à 08:59
Ok pas de probleme.
merci
11 août 2008 à 15:43
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
++
11 août 2008 à 15:36
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
11 août 2008 à 15:36
11 août 2008 à 14:40
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