Discussion :

[sanfour_walhan]

bonjour les codeurs
je me demande s'il ya une methode pour determiner le numero de la semaine par mois.
merci.

[SaumonAgile]

Peux tu être plus précis ?
Merci.

[sanfour_walhan]

oui ok
je veux apartir d'une date donner determiner le numero de la semaine qui corespond par raport au mois par exemple pour la date 01/10/2007
la semaine qui lui corespond est le "1ere semaine du mois 10/2007"
merci pour votre aide

[lucfrfr]

Bonjour,

Désolé pour le retard.
J'ai passé 3h dessus mais c'est bon.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public datevoulu As Date
    Public datevoulustring As String
    Public x As String
    Public u As Integer = 0
    Public datefinsem As String = "0"
    Public datemois As String = "1"
    Public bisextile As Boolean
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        datevoulustring = InputBox("entrez la date")
        datevoulu = CDate(datevoulustring)
        'Détermine si c'est une année bisextile
        Dim y As String
        y = Mid(datevoulustring, datevoulustring.Length - 3)
        If DateTime.IsLeapYear(y) Then
            bisextile = True
        End If
 
 
        Do While x = "" 'peut importe l'argent de la boucle
 
            'Oblige à avoir un format xx
            If datefinsem.Length = 1 And datefinsem <> "1" Then datefinsem = "0" & datefinsem
            'Retire le nombre de jour du mois précédent
            If datefinsem > 28 Then
                If datemois = 2 Then
                    If bisextile = True Then
                        datefinsem = datefinsem - 29
                    Else
                        datefinsem = datefinsem - 28
                    End If
                Else
                    Select Case datemois
                        Case "01", "03", "05", "07", "08", "10"
                            datefinsem = datefinsem - 31
                        Case "04", "06", "09", "11"
                            datefinsem = datefinsem - 30
                    End Select
                End If
                'Passe au mois suivant
                datemois = datemois + 1
            End If
            'Oblige à garder un format xx
            If datemois.Length = 1 Then datemois = "0" & datemois
            'Si la date du jour et la date du mois sont inférieur à la date parcourt, c'est le bonne semaine !
            If Mid(datevoulustring, 1, 2) <= datefinsem And Mid(datevoulustring, 4, 2) <= datemois Then
                MsgBox("Cette date correspond à la semaine N° " & u)
                End
            End If
            'U est le numéro de semaine
            u = u + 1
            datefinsem = datefinsem + 7
        Loop

Tiens mois au courant

[sanfour_walhan]

merci bcp pour votre effort je vais essayer et mercui encore une fois

[Aspic]

merci bcp pour votre effort je vais essayer et mercui encore une fois

Et vive le tag quand tu as trouvé

[SaumonAgile]

Bonjour,

Désolé pour le retard.
J'ai passé 3h dessus mais c'est bon.

Code :

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

...

Tiens mois au courant

C'est dommage d'avoir passé autant de temps pour faire ceci :
http://msdn2.microsoft.com/fr-fr/lib...ar(VS.80).aspx

[sanfour_walhan]

voila c bon j'ai trouver merci pour votre aide
voila le code

Dim cetteDate As Date
Dim cetsem As Integer
cetteDate = DateTimePicker1.Text
cetsem = Weekday(cetteDate)
Dim sem As String
sem = cetsem
M = DateTimePicker1.Value.Month
datevoulustring = DateTimePicker1.Text
Dim y As String
y = Mid(datevoulustring, datevoulustring.Length - 3)
If DateTime.IsLeapYear(y) Then
bisextile = True
D = "29"
Else : D = "28"
End If
If M = "1" Then : M1 = "31"
ElseIf M = "2" Then : M1 = D
ElseIf M = "3" Then : M1 = "31"
ElseIf M = "4" Then : M1 = "30"
ElseIf M = "5" Then : M1 = "31"
ElseIf M = "6" Then : M1 = "30"
ElseIf M = "7" Then : M1 = "31"
ElseIf M = "8" Then : M1 = "31"
ElseIf M = "9" Then : M1 = "30"
ElseIf M = "10" Then : M1 = "31"
ElseIf M = "11" Then : M1 = "30"
ElseIf M = "12" Then : M1 = "31"
End If
Dim j As String = DateTimePicker1.Value.Day
Dim r1 As String = (Val(M1) - Val(j) + Val(sem))
Dim S1 As String
If r1 > 29 Then : S1 = "1ERE"
ElseIf r1 < 29 And r1 > 22 Or r1 = 29 Then : S1 = "2EME"
ElseIf r1 < 22 And r1 > 15 Or r1 = 22 Then : S1 = "3EME"
ElseIf r1 < 15 And r1 > 8 Or r1 = 15 Then : S1 = "4EME"
ElseIf r1 < 8 Or r1 = 8 Then : S1 = "5EME"
End If
TextBox1.Text = S1