Problème de récuperation de date suivant un numéro de semaine

**splif** · 07/02/2022, 17h58

Bonjour à tous,

je viens vers vous car je rencontre un problème au niveau de la récupération d'une date.

j'ai créé une form qui permet de faire défiler les semaines suivant une année et suivant la semaine affichée, j'ai un label qui affiche la date du début de la semaine ( celle du lundi ) et la date de la fin de semaine ( le vendredi dans ce cas )

Nom : FormSemainforum.png
Affichages : 461
Taille : 5,2 Ko

Nom : FormSemainforum.png
Affichages : 461
Taille : 5,2 Ko

Tout à l'air de fonctionner sauf pour la semaine 52 de 2022 ou il m'affiche les dates de la 1ere semaine de 2023 Tout en gardant l'année 2022 !

Je n'arrive pas à trouver le problème, si l'un de vous peux me conseiller ça serait bienvenu

Je vous donne le code de la Form

Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
Imports System.Globalization
Public Class Form1
 
 
    Private NumeroSemaineSelecteur, AnneeSelecteur, MaxSemaineAnne As Integer
    Private Lundi As DateTime ' lundi du début de la semaine
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        NumeroSemaineSelecteur = WeekNumber(Date.Now)
        AnneeSelecteur = AnneeEncours()
 
        LabelSemaine.Text = NumeroSemaineSelecteur.ToString
        LabelAnnee.Text = AnneeSelecteur.ToString
 
        MaxSemaineAnne = CalCulNbreSemaineAnnee(AnneeSelecteur) ' on calcule le nombre de semaines dans l'année selectionnée
 
        Label13.Text = "(Semaine" & GetDatesSemaine(NumeroSemaineSelecteur, False) & ")"
 
    End Sub
 
#Region "Boutons"
    Private Sub ButSemainePlus_Click(sender As Object, e As EventArgs) Handles ButSemainePlus.Click
        If NumeroSemaineSelecteur >= MaxSemaineAnne Then
            AnneeSelecteur = AnneeSelecteur + 1
            LabelAnnee.Text = AnneeSelecteur.ToString
            NumeroSemaineSelecteur = 1
            MaxSemaineAnne = CalCulNbreSemaineAnnee(AnneeSelecteur) ' on calcule le nombre de semaines dans l'année selectionnée
        Else
            NumeroSemaineSelecteur = NumeroSemaineSelecteur + 1
        End If
        LabelSemaine.Text = NumeroSemaineSelecteur.ToString
 
        Label13.Text = "(Semaine" & GetDatesSemaine(NumeroSemaineSelecteur, False) & ")"
 
    End Sub
 
    Private Sub ButSemaineMoins_Click(sender As Object, e As EventArgs) Handles ButSemaineMoins.Click
        If NumeroSemaineSelecteur <= 1 Then
            AnneeSelecteur = AnneeSelecteur - 1
            LabelAnnee.Text = AnneeSelecteur.ToString
            MaxSemaineAnne = CalCulNbreSemaineAnnee(AnneeSelecteur) ' on calcule le nombre de semaines dans l'année selectionnée
            NumeroSemaineSelecteur = MaxSemaineAnne
        Else
            NumeroSemaineSelecteur = NumeroSemaineSelecteur - 1
        End If
        LabelSemaine.Text = NumeroSemaineSelecteur.ToString
        Label13.Text = "(Semaine" & GetDatesSemaine(NumeroSemaineSelecteur, False) & ")"
 
    End Sub
 
 
#End Region
 
 
#Region "Fonctions"
 
    ''' <summary>
    ''' Retourne le nombre de semaines dans l'année selectionnée
    ''' </summary>
    ''' <param name="AnneRecup"></param>
    ''' <returns></returns>
    Private Function CalCulNbreSemaineAnnee(ByVal AnneRecup As Integer) As Integer
 
        Dim AnneeRecup As Integer = AnneRecup
        ' Dim Anneesuivante As Integer = AnneeRecup + 1
        Dim DateDebutAnnee As Date = Convert.ToDateTime("01/01/" & AnneeRecup.ToString)
        Dim DateFintAnnee As Date = Convert.ToDateTime("31/12/" & AnneeRecup.ToString)
        '   Dim DateDebutNouvelleAnne = Convert.ToDateTime("01/01/" & Anneesuivante.ToString)
        Dim ts As TimeSpan = DateFintAnnee - DateDebutAnnee
        Dim PremierjourAnnee As String = DateDebutAnnee.ToString("dddd", New CultureInfo("fr-FR"))
        ' Dim DernierJourAnnee As String = DateFintAnnee.ToString("dddd", New CultureInfo("fr-FR"))
        ' Dim PremierJourNouvelleAnnee As String = DateDebutNouvelleAnne.ToString("dddd", New CultureInfo("fr-FR"))
        Dim Resultat As Integer
        Dim AnneeBisextile As Boolean
 
        ' on contrôle si c'est une année bisextile 
        If (DateTime.IsLeapYear(AnneeRecup)) Then
            AnneeBisextile = True
        Else
            AnneeBisextile = False
        End If
 
        If AnneeBisextile = True Then
            If PremierjourAnnee = "mercredi" Or PremierjourAnnee = "jeudi" Then
                Resultat = CInt(ts.TotalDays / 7) + 1
            Else
                Resultat = CInt(ts.TotalDays / 7)
            End If
        Else
            If PremierjourAnnee = "jeudi" Then
                Resultat = CInt(ts.TotalDays / 7) + 1
            Else
                Resultat = CInt(ts.TotalDays / 7)
            End If
 
        End If
 
        Return Resultat
 
 
    End Function
 
 
    ''' <summary>
    ''' Retourne la date de début et de fin de la semaine
    ''' </summary>
    ''' <param name="NumeroSemaine"></param>
    ''' <param name="RecupLundi"></param>
    ''' <returns></returns>
    Private Function GetDatesSemaine(NumeroSemaine As Integer, RecupLundi As Boolean) As String
 
        Dim Calendrier As New GregorianCalendar(GregorianCalendarTypes.Localized)
        Dim DateLundi, DateVendredi As Date
        Dim Semaine As Integer = 0
        Dim DateCal As Date = Convert.ToDateTime("01/01/" & AnneeSelecteur.ToString)
        While Semaine <> NumeroSemaine
            DateCal = DateCal.AddDays(1)
            Semaine = Calendrier.GetWeekOfYear(DateCal, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
        End While
        DateLundi = DateCal
        If RecupLundi = True Then Lundi = DateCal ' on ne récupère la date du lundi que de la première semaine
        DateVendredi = DateCal.AddDays(4)
        Return " du " & DateLundi.ToShortDateString & " au " & DateVendredi.ToShortDateString
 
    End Function
 
 
    ''' <summary>
    ''' Retourne le numéro de la semaine
    ''' </summary>
    ''' <param name="DateJour"></param>
    ''' <returns></returns>
    Private Function WeekNumber(DateJour As DateTime) As Integer
 
        Return New GregorianCalendar(GregorianCalendarTypes.Localized).GetWeekOfYear(DateJour, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
 
    End Function
 
 
    ''' <summary>
    ''' Retourne l'année en cours
    ''' </summary>
    ''' <returns></returns>
    Public Shared Function AnneeEncours() As Integer
        Return DateTime.Now.Year
    End Function
 
#End Region
 
 
End Class

**m4k-Hurrican** · 09/02/2022, 17h38

Bonjour,

Je n'ai pas vraiment étudié ton code, mais déjà tu pourrais t'éviter une prise de tête (et des erreurs) dans ta fonction CalCulNbreSemaineAnnee.
Plutôt que de chercher si la date est bissextile, si le 1er jour de l'année est un jeudi, etc... Pourquoi ne pas prendre le dernier jour de l'année (31/12) et récupérer son n° de semaine avec GetWeekOfYear ?

**m4k-Hurrican** · 09/02/2022, 18h20

Et après étude un peu plus approfondie, ton souci me saute aux yeux.
Dans ta fonction GetDatesSemaine, ta boucle pour pointer sur le n° de semaine pose souci.
En effet tu commences au 1er jour de l'année en cours, et tu incrémentes jusqu'à tomber sur le numéro de semaine correspondant.
Sauf que... Tu oublies que les n° de semaine se chevauchent sur 2 années consécutives ! Résultat, cette année les 1er et 2 janvier sont sur la semaine 52 de 2021.
Du coup dès le début de ta boucle tu vas être sur la semaine 52 (de 2021), et tu sors de ta boucle alors que tu n'es qu'au tout début 2022, pas en semaine 52 de 2022.

**splif** · 09/02/2022, 20h15

Envoyé par m4k-Hurrican

Bonjour,

Je n'ai pas vraiment étudié ton code, mais déjà tu pourrais t'éviter une prise de tête (et des erreurs) dans ta fonction CalCulNbreSemaineAnnee.
Plutôt que de chercher si la date est bissextile, si le 1er jour de l'année est un jeudi, etc... Pourquoi ne pas prendre le dernier jour de l'année (31/12) et récupérer son n° de semaine avec GetWeekOfYear ?

Bonjour et merci pour ta réponse.
En effet je me suis compliqué la vie alors que comme ça cela fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Private Function CalCulNbreSemaineAnnee(ByVal AnneeRecup As Integer) As Integer
 
        Dim Calendrier As New GregorianCalendar(GregorianCalendarTypes.Localized)
        Dim Resultat As Integer
        Dim DateFintAnnee As Date = Convert.ToDateTime("31/12/" & AnneeRecup.ToString)
        Resultat = Calendrier.GetWeekOfYear(DateFintAnnee, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)
        Return Resultat
 
    End Function

Pour le reste je cherche

**m4k-Hurrican** · 09/02/2022, 21h21

Envoyé par splif

Pour le reste je cherche

Pourquoi puisque je t'ai donné la réponse ?

**splif** · 10/02/2022, 11h31

Envoyé par m4k-Hurrican

Pourquoi puisque je t'ai donné la réponse ?

Hello oui j'avais plus la tête à réfléchir

Sinon je pense avoir réglé le problème avec cette fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Public Function GetDatesSemaine(ByVal semaine As Integer, ByVal annee As Integer) As String
 
        Dim lundi, Vendredi As Date
        Dim j4 As New Date(annee, 1, 4)
        lundi = j4.AddDays((semaine - 1) * 7 - If(j4.DayOfWeek = 0, 6, j4.DayOfWeek - 1))
        Vendredi = lundi.AddDays(4)
        Return " du " & lundi.ToShortDateString & " au " & Vendredi.ToShortDateString
 
    End Function

ça à l'air de fonctionner

Problème de récuperation de date suivant un numéro de semaine [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager