code jours feriés

Version imprimable

16/09/2019, 22h18
mahjoub123

code jours feriés

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
17/09/2019, 13h49
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.

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

Code:

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:

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

Citation:
Envoyé par zitoune92
Il te suffira alors de mettre pour chaque date quelque chose comme:
Code:

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:

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:

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.

27/09/2019, 01h03
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.