Discussion :

[Le Pharaon]

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é ?

[SfJ5Rpw8]

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

[zazaraignée]

Salut

Il me semble que DayOfWeek retourne le jour de la semaine (0 à 6).
Fais F1 pour vérifier.

[DarkVader]

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

reste à gérer le 29/02

[SfJ5Rpw8]

ma fonction ne marche pas ?

[DarkVader]

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.

[Le Pharaon]

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

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 code

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