Fonction pour recuperer tous les mercredis d'un mois donné

Version imprimable

26/11/2012, 09h56
mattmax

Fonction pour recuperer tous les mercredis d'un mois donné

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

A la va vite (code pas tester)

Code:

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;
        }

26/11/2012, 10h32
mattmax

Je vais essayer merci beaucoup
26/11/2012, 11h08
BenoitM

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

Salut

Code:

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:

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

tous les dimanches

Code:

listdates = GetListdate(11, 0)