Private Sub ExaminerSemaine_Click()
Dim CRLF, Message, Réponse
CRLF = Chr(13) & Chr(10)
Réponse = InputBox("Renseignez une date" )
If Not IsDate(Réponse) Then Exit Sub
SemaineTrouvée = DatePart("ww", Réponse, vbMonday, vbUseSystem)
DernièreSemaineDuMois = DatePart("ww", DateSerial(Year(Réponse), Month(Réponse) + 1, 1) - 1, vbMonday, vbUseSystem)
If SemaineTrouvée = DernièreSemaineDuMois Then
Message = "La date renseignée " & Réponse & " correspond bien à la dernière semaine du mois"
Else
Message = "La date renseignée " & Réponse & " ne correspond pas à la dernière semaine du mois"
End If
Message = Message & CRLF
Message = Message & "Votre date : " & Réponse & CRLF
Message = Message & "Sa semaine : " & SemaineTrouvée & CRLF
Message = Message & "La dernière semaine du mois est " & DernièreSemaineDuMois
MsgBox Message
End Sub