Recherche
Recherche
Les mémos
Je débute...
Visites

 996444 visiteurs

 4 visiteurs en ligne

Expression du numéro de semaine borné "du ... au"

Une autre approche, à l'aide d'une autre méthode, plutôt originale ...

Function fnStrSemaine(LaDate As Date) As String
    Dim WeekISO As Integer
    'Adaptation de la formule de Laurent Longre
    Dim PremierJourSemaine As Date
    Dim DernierJourSemaine As Date

    WeekISO = Int((LaDate - (DateSerial(Year(LaDate - _
                              Weekday(LaDate - 1) + 4), 1, 3) - _
                              Weekday(DateSerial(Year(LaDate - _
                              Weekday(LaDate - 1) + 4), 1, 3))) + 5) / 7)

    PremierJourSemaine = IIf(Weekday(LaDate) = vbSunday, _
                             LaDate - Weekday(LaDate) - 5, _
                             LaDate - Weekday(LaDate) + 2)
    DernierJourSemaine = IIf(Weekday(LaDate) = vbSunday, _
                             LaDate - Weekday(LaDate) + 1, _
                             LaDate - Weekday(LaDate) + 8)
    fnStrSemaine = "Semaine N°" & WeekISO & " du " _
                  & Format(PremierJourSemaine, "dddd dd mmmm") _
                  & " au " _
                  & Format(DernierJourSemaine, "dddd dd mmmm yyyy")
End Function


Catégorie : - Dates - Heures
Page lue 6872 fois