Bonjour,
voici du code qui doit me permettre de calculer une date à partir d'une autre date en otant 1 jour et en tenant compte des weekend et jours fériés.
Mais je n'obtient pas le résultat escompter.
Voici le code :
Et la liste des jours chomés :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 WhileReadingRecords; DateVar Array ListeJoursChome; Local DatetimeVar DateDecoupe:= {ENTREPOT_COMMANDE_TEMP.STK_DATECONG}; Local NumberVar Delai:= 1; Local NumberVar i := 0; WHILE i < Delai Do (DateDecoupe := DateDecoupe -1; if dayofweek (DateDecoupe,CrMonday) in 1 to 5 and not (DateDecoupe in ListeJoursChome) then i:=i+1 else i:=i); DateDecoupe
Les dates renvoyées on bien un jour de moins et tiennent compte des weekend, mais pas des jours fériées.
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 BeforeReadingRecords; DateVar Array ListeJourFerie := [ Date (2019,07,14), Date (2019,08,15), Date (2019,11,01), Date (2019,11,11), Date (2019,12,25), Date (2020,01,01), Date (2020,04,13), Date (2020,05,01), Date (2020,05,08), Date (2020,05,21), Date (2020,06,01), Date (2020,07,14), Date (2020,08,15), Date (2020,11,01), Date (2020,11,11), Date (2020,12,25), Date (2021,01,01), Date (2021,04,05), Date (2021,05,01), Date (2021,05,08), Date (2021,05,13), Date (2021,05,24), Date (2021,07,14), Date (2021,08,15), Date (2021,11,01), Date (2021,11,11), Date (2021,12,25) ]; 0
Exemple :
Merci d'avance pour votre aide.
Partager