Discussion :

[superthx]

Bonjour,
J'essai désespérément de trouver un moyen d'afficher le numéro de la semaine a partir d'un DateTimePicker.

Mon DateTimePicker est DateTimePicker1 au format yyyy-MM-dd

J'ai essayer ce code mais qui est que fonctionnel pour la date courante.

Code :

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

1
2
Dim WeekNumber As Integer = DatePart(DateInterval.WeekOfYear, Date.Now, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
        TextBox1.Text = WeekNumber

J'ai essayer d'envoyer le DateTimePicker1.Text vers Textbox3.Text pour essayer de recuperer la semaine.

Code :

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

1
2
Dim WeekNumber As Integer = DatePart(DateInterval.WeekOfYear, TextBox1.Text, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays)
        TextBox1.Text = WeekNumber

Mais marche pas.

Quelqu'un peu me donner une soluce.
Merci d'avance.

[ZenZiTone]

http://stackoverflow.com/questions/1...ven-date-in-vb

EDIT : pour la première solution proposée il y a mieux :

Code :

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

CultureInfo.InvariantCulture.Calendar.GetWeekOfYear(DateTime.Now, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)

De cette façon tu peux choisir "CalendarWeedRule".

[superthx]

Merci ZenZiTone.
J'ai du rajouter

Code :

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

1
2
3
Imports System
Imports System.Globalization
Imports System.Threading

Et modifier le code comme cela pour afficher dans mon TextBox.

Code :

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

TextBox4.Text = CultureInfo.InvariantCulture.Calendar.GetWeekOfYear(DateTimePicker1.Text, CalendarWeekRule.FirstFourDayWeek, DayOfWeek.Monday)

Marche Tip Top

Si cela peux servir a certains.