Discussion :

[mahjoub123]

bjr

j'ai une echeancier (des dates de paiment ) affiché sur des labels par exemple

label 1 =08/10/2019(date paimenet)
label2 = 12/11/2019(date paimenet)
label3 = 10/12/2019(date paimenet) etc


une liste box affichant les dates des jours feriés

je cherche un code lorsqu'il y a un jour ferié par exemple le 08/10/2019 est un jour ferié , la date de paiement qui s'afiche dans label1 sera 07/10/2019 càd jour avant ouvrable et si ce se coincide avec le samedi et dimanche le jour qui cherché est le vendredi

merci d'avance

[StringBuilder]

Une simple boucle suffit à répondre à ta problématique.
Cependant, si au final ces données ont pour vocation à être utilisées avec une base de données, une table "calendrier" avec tous les jours avec information si c'est un jour ouvré ou non sera d'une grande aide pour tout simplifier.

[zitoune92]

Voici un code te permettant de déterminer si un jour est ferié (tous sont fixes, sauf Lundi de Paques et Ascension)

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
 Function IsFerie(dDate As Date) As Boolean
        Dim Paques As Date, Lundi2Paques As Date, Ascension As Date
 
        Paques = GetPaques(Year(dDate))
        Lundi2Paques = Paques.AddDays(1)
        Ascension = Paques.AddDays(39)
        With dDate
 
            IsFerie = .Date.Equals(Lundi2Paques) Or .Date.Equals(Ascension) _
              Or (.Day = 1 And .Month = 1) Or (.Day = 1 And .Month = 5) _
              Or (.Day = 8 And .Month = 5) Or (.Day = 14 And .Month = 7) _
              Or (.Day = 15 And .Month = 8) Or (.Day = 1 And .Month = 11) _
              Or (.Day = 11 And .Month = 11) Or (.Day = 25 And .Month = 12)
 
        End With
    End Function
 
    Function GetPaques(Annee As Integer) As Date
        Dim Y As Int16, G As Int16, C As Int16, X As Int16, Z As Int16, D As Integer, e As Integer, N As Integer, P As Integer, J As Integer, M As Integer
        Y = Annee
        G = (Y Mod 19) + 1
        C = Int((Y / 100)) + 1
        X = Int(3 * C / 4) - 12
        Z = Int(((8 * C) + 5) / 25) - 5
        D = Int(((5 * Y) / 4) - X - 10)
        e = ((11 * G) + 20 + Z - X) Mod 30
        If ((e = 25) And (G > 11)) Or (e = 24) Then e = e + 1
        N = 44 - e
        If N <= 21 Then N = N + 30
 
        P = N + 7 - ((D + N) Mod 7)
        If P > 31 Then
            J = P - 31
        Else
            J = P
        End If
        If J = P Then
            M = 3
        Else
            M = 4
        End If
 
        GetPaques = CDate(Str(J) + "/" + Str(M) + "/" + Str(Annee))
 
    End Function

Il te suffira alors de mettre pour chaque date quelque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
If IsFerie(MyDate) then
  MyDate=MyDate.AddDays(-1)
  If MyDate.DayOfWeek=DayOfWeek.Sunday then
    MyDate=MyDate.AddDays(-2)
  ElseIf  MyDate.DayOfWeek=DayOfWeek.Saturday then
    MyDate=MyDate.AddDays(-1)
  EndIf
Else
  MyDate=MyDate
EndIf

Ca peut être amélioré (function récursive par exemple) mais ça marche quelque soit l'année de ta date

[StringBuilder]

Il te suffira alors de mettre pour chaque date quelque chose comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
If IsFerie(MyDate) then
  MyDate=MyDate.AddDays(-1)
  If MyDate.DayOfWeek=DayOfWeek.Sunday then
    MyDate=MyDate.AddDays(-2)
  ElseIf  MyDate.DayOfWeek=DayOfWeek.Saturday then
    MyDate=MyDate.AddDays(-1)
  EndIf
Else
  MyDate=MyDate
EndIf

Ca peut être amélioré (function récursive par exemple) mais ça marche quelque soit l'année de ta date

Pas sûr que ça fonctionne.
Dans ton exemple, si un vendredi est férié et que la date testée est un samedi ou dimanche, ça ne fonctionne pas.

Je verrai plutôt :

Code vb :

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

1
2
3
4
5
6
7
8
9
10
 
If IsFerie(MyDate) then
  MyDate=MyDate.AddDays(-1)
EndIf
 
If MyDate.DayOfWeek=DayOfWeek.Sunday then
  MyDate=MyDate.AddDays(-2)
ElseIf  MyDate.DayOfWeek=DayOfWeek.Saturday then
  MyDate=MyDate.AddDays(-1)
EndIf

Par contre, attention si on a des jours fériés qui se suivent de près (à priori, ce n'est pas le cas, mais sait-on jamais).

Une approche plus sûre serait (et accessoirement plus courte) :

Code vb :

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

1
2
3
4
 
While MyDate.DayOfWeek=DayOfWeek.Sunday or MyDate.DayOfWeek=DayOfWeek.Saturday or IsFerie(MyDate)
  MyDate=MyDate.AddDays(-1)
End While

On peut d'ailleurs soit intégrer le test sur samedi et dimanche dans la fonction IsFerie(), soit créer IsJourNonOuvrable() qui effectue tous les tests, afin d'alléger la condition du while.

[clementmarcotte]

Bonjour,

Cela me semble (un peu) éloigné de ce que tu demandes, mais si tu te rends là, le contrôle MonthCalendar permet de colorer en disons, noir des dates déterminées. Et c'est dans les propriétés.

Pour tes fériés à dates fixes (11 novembre, 1er mai, 25 décembre), et cela varie selon les juridictions, un simple tableau ou, un dictionnaire peut faire l'affaire. Pour d'autres comme Pâques, il existe des algorithmes sur différents sites.

Mais, de par chez-nous, il y a aussi des congés qui sont à jour fixe, mais pas à date fixe. Par exemple le premier lundi de septembre ou le deuxième lundi d'octobre. Cela, ça demande un peu plus de calculs, parce que les calendriers se "promènent" d'année en année.