Discussion :

[narutobaka]

Bonjour,

Je travaille actuellement sur un projet avec Microsoft Visual Basic 2008 Express et je rencontre un petit problème.

Comment déterminer le numéro d'une Semaine en connaissant sa date de début ?

En effet je dois gérer l'affichage d'information d'une base de donnée dans un fichier excel, et je connais la date de début de la semaine sur une periode de 14 semaines existe-il un algo permettant de connaitre le numéro de cette semaine?

Merci d'avance

Je continue mes recherches

[narutobaka]

Bonjour

En cherchant j'ai trouvé cette methode :

Code :

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

1
2
3
4
5
6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dateDuJour As String = Me.dateJ.Text
        Dim dateJ As Date = dateDuJour
--dateJ est la date pour laquelle je recherche le numéro de la semaine
        Me.numSem.Text = DatePart(DateInterval.WeekOfYear, dateJ, FirstDayOfWeek.Monday).ToString
    End Sub

Il semble d'ailleur y avoir les version pour d'autre langage .

Cordialement

[narutobaka]

Bonjour,

Je viens indiqué une correction.

En effet

Code :

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

1
2
3
4
5
6
7
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dateDuJour As String = Me.dateJ.Text
        Dim dateJ As Date = dateDuJour
--dateJ est la date pour laquelle je recherche le numéro de la semaine
        Me.numSem.Text = DatePart(DateInterval.WeekOfYear, dateJ, FirstDayOfWeek.Monday).ToString
    End Sub

ne semble pas gérer la règle concernant la gestion des de la premières semaines de l'année devant compter 4 jours.

Code :

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

1
2
3
4
5
Private Sub btnNumSem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNumSem.Click
        Dim dateDuJour As String = Me.dateJ.Text
        Dim dateJ As Date = dateDuJour
        Me.numSem.Text = DatePart("ww", dateJ, vbMonday, FirstWeekOfYear.FirstFourDays).ToString
    End Sub

celle-ci semble le gèrer.

je l'ai trouvé ici : http://vb.developpez.com/faq/?page=Dates

++