Bonjour, j'ai modifié un code que j'ai recu du forume pour que ca calcul le nombre de vendredi entre 2 dates( et que si la date de départ ou la date d'arrivée est un vendredi ca ne le compte pas) mais ca ne compte pas juste.
vous pouvez me dire ou il y a l'erreur, merci
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
Function vendredi(d1, d2) As Integer 'compte les lundi ou mardi ou ect entre 2 dates
        Dim ret, daysbetween
        daysbetween = DateDiff("d", d1, d2)
        ret = Int(daysbetween / 7)
        daysbetween = daysbetween - (7 * ret)
        'le 6 est le jour de la semaine= vendredi   lundi 2 mardi 3 mercredi 4 jeudi 5 samedi 7 dimanche 1
        If (((Weekday(d1) Mod 7) + daysbetween) = 6) Then ret = ret + 1
        vendredi = ret
        If (((Weekday(Form1.TextBox12.Text) Mod 7) + daysbetween) = 6) Then
            vendredi = ret - 1
        End If
        If (((Weekday(Form1.TextBox13.Text) Mod 7) + daysbetween) = 6) Then
            vendredi = ret - 2
        End If
        If vendredi < 0 Then vendredi = 0
    End Function