Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
7 février 2008 4 07 /02 /février /2008 08:32

Voici une fonction qui permet d'obtenir le numéro de la semaine à partir d'une date :

 

Code :

Public Function NumSemaine(ByVal dat As Date) As Integer
        If IsDate(dat) Then
            Dim semaine As Integer
            Dim semain As Integer

            semain = Weekday(dat)
            If semain = 2 Then
                dat = dat.AddDays(6)
            End If
            If semain = 3 Then
                dat = dat.AddDays(5)
            End If
            If semain = 4 Then
                dat = dat.AddDays(4)
            End If
            If semain = 5 Then
                dat = dat.AddDays(3)
            End If
            If semain = 6 Then
                dat = dat.AddDays(2)
            End If
            If semain = 7 Then
                dat = dat.AddDays(1)
            End If
            semaine = DatePart("ww", dat, vbMonday)

            Return semaine
        End If

        Return Nothing

   End Function

Partager cet article

Repost 0
Published by Cyril - dans VB.NET
commenter cet article

commentaires

Balabonov 19/05/2009 15:03

Nickel exactement ce que je cherchais