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
Téléchargez cette ressource
Comment lutter contre le Phishing ?
Dans un environnement cyber en constante mutation, le phishing évolue vers des attaques toujours plus sophistiquées combinant IA, automatisation et industrialisation. Une réalité complexe qui exige des mesures de sécurité avancées et repensées au-delà de l’authentification multifacteur. Découvrez les réponses technologiques préconisées par les experts Eviden et les perspectives associées à leur mise en œuvre.