C'est une question peut-être trop bête mais dont la solution m'aiderait à faire d'énormes pas
Comment connaître le dernier jour d'un mois donné ?
C'est une question peut-être trop bête mais dont la solution m'aiderait à faire d'énormes pas
Comment connaître le dernier jour d'un mois donné ?
Scuse me while I kiss the sky ! Jimi Hendrix
Tu veux savoir si un moi se finit le 30,31, 28 ou 29 ?
si oui essai ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Function DerJour(Mois As Integer, Annee As Integer) As Integer If Mois = 1 Then Annee = Annee - 1 DerJour = Day(DateSerial(Annee, Mois + 1, 0)) ' 0 = 1-1 , jour avant le 1° End Function
Salut
Il me semble que DayOfWeek retourne le jour de la semaine (0 à 6).
Fais F1 pour vérifier.
- Pour les nouveaux : Mode d'emploi et aide aux nouveaux
- et impérativement les règles du forum. Histoire de garder une ambiance amicale.
- Noubliez pas les balises de Code pour vos listings : bouton # de l'éditeur. Et n'oubliez pas non plus de bouton
- Cours Excel - FAQ Excel - Forum Excel - Cours VBA - Cours complet VBA Excel
reste à gérer le 29/02
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 MsgBox "Le dernier jour de ce mois sera le " & Format(LastDay(Now) & "/" & Month(Now) & "/" & Year(Now), "Dddd dd mmmm yyyy") Function LastDay(myDate As Date) As Long Dim strM As String strM = "31,28,31,30,31,30,31,31,30,31,30,31" LastDay = CLng(Split(strM, ",")(CLng(Month(myDate)))) End Function
si désolé d'autant que tu traites les années bissextiles
mais je pensais surtout qu'il demandait le jour de la semaine correspondant au dernier jour du mois
plutôt que le nombre de jours du mois.
Apparemment la question n'était pas bien posée, je vous remercie tous. Tu as bien répondu bbil. Voici ce que j'ai déduit de ton codeEnvoyé par bbil
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Function DerJour(Mois As Integer, Annee As Integer) As String Dim i As Integer If Mois = 1 Then Annee = Annee - 1 i = Day(DateSerial(Annee, Mois + 1, 0)) ' 0 = 1-1 , jour avant le 1° DerJour = Format(CDate(i & "/" & Mois & "/" & Annee), "dd/mm/yyyy") End Function
Scuse me while I kiss the sky ! Jimi Hendrix
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager