Extraire une date dans un monthcalendarRésolu

Question

Bonsoir, 
de puis quelque temps je développe une application de gestion facturation avec visual basic 2010 sous sql serveur 2008, dans l'un des modules de gestion des dates je cherche à extraire par exemple la date de tous les samedis et dimanches   de mois octobre.
Merci d'avance pour votre aide

Whismeril · Answer

Bonsoir, pas besoin d'un monthcalendar.

Tu regardes quel est le jour du 1er octobre, tu décales pour arriver au premier samedi (ou dimanche), tu le stockes.
Tu ajoutes 7 jours et tu stockes, puis 7 et tu stockes, et encore 7 jours tu stockes. Là nous avons 4 samedi, les moi faisant tous au moins 28 jours, il y a forcément 4 ou 5 samedi, donc on ajoute 7 jours, on regarde si on est encore en octobre et si oui on stocke.
 
Voilà le code de base, à toi de le généraliser

    Public Function Resultats() As List(Of Date)
        Dim annee As Integer = Date.Now.Year
        Dim unOctobre As New Date(annee, 10, 1) 'initie le premier octobre

'les jours de la semaine sont indéxés ainsi: Dimanche, Lundi, Mardi, Mercredi, Vendredi, Samedi, de 0 à 6
        Dim jour As DayOfWeek = unOctobre.DayOfWeek

Dim samedi As Date = unOctobre.AddDays(6 - CInt(jour)) 'initie le premier samedi du moi

Dim mesSamedis As New List(Of Date)() 'initie la liste à retourner
        mesSamedis.Add(samedi) 'y ajoute le premier samedi
        mesSamedis.Add(samedi.AddDays(7)) 'y ajoute le 2eme samedi
        mesSamedis.Add(samedi.AddDays(14)) 'y ajoute le 3eme samedi
        mesSamedis.Add(samedi.AddDays(21)) 'y ajoute le 4eme samedi est en octobre
        If samedi.AddDays(28).Month = 10 Then 'et si le 5eme est en octobre on le prend aussi
            mesSamedis.Add(samedi.AddDays(28))
        End If

Return mesSamedis
    End Function

cs_mohellebi · Answer

Un grand merci pour le code et l'explication , je vais essayer de l'exploiter de suite.

Extraire une date dans un monthcalendar

2 réponses

Votre réponse

Discussions similaires