Discussion :

[mattmax]

Bonjour,

Je voudrais écrire une fonction qui me permette de recuperer toutes les date des mercredis dans mon cas d'un mois donné.

Exemple :
Mois =Novembre
Jour que je veut récupérer = 2012-11-07','2012-11-14','2012-11-21','2012-11-28'

Je doit avouer que j'ai un peu de mal avec les dates en programmation je ne sais pas trop comment commencer ma fonction, quelle méthode utilisé. Si je pouvais avoir quelques pistes

Merci d'avance

[BenoitM]

A la va vite (code pas tester)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        public List<DateTime> GetAllDaysFromMonth(DateTime date, DayOfWeek day)
        {
            List<DateTime> lstDate = new List<DateTime>();
            date = new DateTime(date.Year, date.Month, 1);
            int CurrentMonth = date.Month;
            while (date.DayOfWeek != day) date = date.AddDays(1);
            while (date.Month == CurrentMonth)
            {
                lstDate.Add(date);
                date = date.AddDays(7);
            }
            return lstDate;
        }

[mattmax]

Je vais essayer merci beaucoup

[BenoitM]

j'ai corrigé quelques erreurs de syntaxe mais toujours pas tester le résultat

[shayw]

Salut

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
Private Function GetListdate(ByVal month As Integer, ByVal dayweek As Integer) As List(Of DateTime)
        Dim first, nextdate As DateTime
        Dim listdates As New List(Of DateTime)
        Dim d As Integer
 
        Dim us As New CultureInfo("en-US")
        first = Convert.ToDateTime("01/" & month.ToString)
        d = us.DateTimeFormat.Calendar.GetDayOfWeek(first)
        If dayweek - d < 0 Then
            nextdate = first.AddDays(7 - (d - dayweek))
        Else
            nextdate = first.AddDays(dayweek - d)
        End If
        While nextdate.Month = month
            listdates.Add(nextdate)
            nextdate = nextdate.AddDays(7)
        End While
        Return listdates
    End Function

pour utiliser
tous les mercredi de novembre

Code :

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

1
2
 Dim listdates As New List(Of DateTime)
   listdates = GetListdate(11, 2)

tous les dimanches

Code :

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

 listdates = GetListdate(11, 0)