Extraire la valeur week-of-year ISO avec RPG seulement
* ===================================================================
* = Description... Retrieve ISO week-of-year
* ===================================================================
D RtvDayOfWeek PR 5I 0
D D Value
D RtvISOWeek PR 5I 0
D D Value
D SomeDate S D Inz( D'2001-10-23' )
D ISOWeek S 5I 0
C Eval ISOWeek = RtvISOWeek(
SomeDate )
C Eval *InLR = *On
P RtvDayOfWeek B Export
D RtvDayOfWeek PI 5I 0
D DateIn D Value
D BaseMonday S D Inz( D’2001-05-21′ )
D Days S 10I 0
C DateIn SubDur BaseMonday Days : *D
C Return ( %Rem( %Rem( Days : 7 ) + 7 : 7 ) )
P RtvDayOfWeek E
P RtvISOWeek B Export
D RtvISOWeek PI 5I 0
D DateIn D Value
D DS
D Jan4Date D Inz( D’0001-01-04′ )
D Jan4Year 4S 0 Overlay( Jan4Date )
D MondayDate S D
D Jan4Day S 5I 0
D Days S 10I 0
D SundayDate S D
D ISOWeek S 5I 0
C Eval Days = 6 – RtvDayOfWeek( DateIn )
C DateIn AddDur Days:*D SundayDate
C Extrct SundayDate:*Y Jan4Year
C Eval Jan4Day = RtvDayOfWeek( Jan4Date )
C Jan4Date SubDur Jan4Day:*D MondayDate
C SundayDate SubDur MondayDate Days:*D
C If Days < 0
C Eval Jan4Year = Jan4Year - 1
C Eval Jan4Day = RtvDayOfWeek( Jan4Date )
C Jan4Date SubDur Jan4Day:*D MondayDate
C SundayDate SubDur MondayDate Days:*D
C EndIf
C Eval ISOWeek = Days/7
C If ISOWeek >= *Zero
C Eval ISOWeek = ISOWeek + 1
C Else
C Eval ISOWeek = 53
C EndIf
C Return ISOWeek
P RtvISOWeek E
Les experts de Palo Alto Networks, Unit 42 et Forrester Research livrent dans ce webinaire exclusif leurs éclairages et stratégies en matière de réponses aux incidents. Bénéficiez d'un panorama complet du paysage actuel de la réponse aux incidents et de sa relation avec la continuité de l'activité, des défis auxquels font face les entreprises et des tendances majeures qui modèlent ce domaine. Un état des lieux précieux pour les décideurs et professionnels IT.
