VBA Dates + Numéros de Semaines

Function Semaine(LaDate As Variant) As Variant

' Renvoie le numéro de la semaine pour le calendrier français (52 semaines)

    Dim i As Byte
    If IsDate(LaDate) Then
        i = CByte(DatePart("ww", LaDate, vbMonday, vbFirstFourDays)) Mod 53
        If i = 0 Then i = 1
        Semaine = i
    Else
        Semaine = Null
    End If
End Function

Function Trimestre(LaDate As Variant)

' Renvoie le trimestre de la date.
' Si des journées de décembre sont en semaine 1 de l'année suivante, alors
' ces dates vont dans l'année suivante en tant qu'éléments du trimestre 1

    Dim i As Byte
    If IsDate(LaDate) Then
        i = Semaine(LaDate)
        If i = 1 Then
            Trimestre = 1
        Else
            Trimestre = DatePart("q", LaDate, vbMonday, vbFirstFourDays)
        End If
    Else
        Trimestre = Null
    End If
End Function

Function DernierJour(LaDate As Variant) As Variant

' Renvoi le N° du dernier jour du mois

    If IsDate(LaDate) Then
        DernierJour = CByte(Day(DateSerial(Year(LaDate), Month(LaDate) + 1, 0)))
    Else
        DernierJour = Null
    End If
End Function

Function DateDernierJour(LaDate As Variant) As Variant

' Renvoi la date du dernier jour du mois

    If IsDate(LaDate) Then
        DateDernierJour = (DateSerial(Year(LaDate), Month(LaDate) + 1, 0))
    Else
        DateDernierJour = Null
    End If
End Function