VB.net numero de semaine vers date du lundi correspondant

Version imprimable

20/05/2015, 13h36
Ashireon

VB.net numero de semaine vers date du lundi correspondant

Bonjour,
Je fais un petit soft pour faire des mise en formes automatiques de fichiers.
Je bute juste sur un petit soucis , je récupère des numéros de semaines et je dois retourner la date du lundi correspondant.
Il existe bien Weekday qui me fait la fonction inverse. Mais je ne sais pas si il existe une fonction methode de le faire dans le sens inverse.
Si quelqu'un a une idée ou une compétence en la matière.
Merci

Bonjour
En cherchant sur le net on trouve le code suivant (c'est du C# mais tu pourras aisément traduire) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
public static DateTime FirstDateOfWeekISO8601(int year, int weekOfYear)
        {
            DateTime jan1 = new DateTime(year, 1, 1);
            int daysOffset = DayOfWeek.Thursday - jan1.DayOfWeek;
 
            DateTime firstThursday = jan1.AddDays(daysOffset);
            var cal = CultureInfo.CurrentCulture.Calendar;
            int firstWeek = cal.GetWeekOfYear(firstThursday, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday);
 
            var weekNum = weekOfYear;
            if (firstWeek <= 1)
            {
                weekNum -= 1;
            }
            var result = firstThursday.AddDays(weekNum * 7);
            return result.AddDays(-3);
        }

Au final j'ai trouvé un moyen en cherchant sur le net et adaptant un code

Code:

1
2
3
4
5
6
7
8
9
 
Public Function DateSemaine!lundi(byval Annee as long, byval , Nsemaine as integer) as date
Dim semaine as integer = 0
dim Datecal as date = convert.toDateTime("01/01/" & cstr(annee))
  While Semaine<>Nsemaine
     DateCal=Datecal.AddDays(1)
      semaine= invariantculture.calendar.GetWeekofYear(Datecal,Globalization.calendarWeekRule.firstFourDayWeek,DayofWeek,Monday)
end while
dateSemaineLundi=DateCal

ca fonctionne cela me renvoi la date du lundi d'une semaine donnée d'une année donnée
je mets en resolu