Extraire la valeur day-of-week avec RPG seulement
* ===================================================================
* = Description... Retrieve day-of-week
* ===================================================================
H NoMain
D RtvDayOfWeek PR 5I 0
D D Value
P RtvDayOfWeek B Export
D RtvDayOfWeek PI 5I 0
D DateIn D Value
D SomeSunday S D Inz( D'2001-05-20' )
D Days S 10I 0
C DateIn SubDur SomeSunday Days : *D
C Return ( %Rem( %Rem( Days : 7 ) + 7 : 7 ) ) + 1
P RtvDayOfWeek E
Téléchargez gratuitement cette ressource
Comment cerner la maturité digitale de votre entreprise ?
Conçu pour les directions IT et Métiers, ce guide vous permettra d'évaluer précisément vos
processus de communication client, d'identifier vos lacunes et points d'inflexion pour établir
un plan d’actions capable de soutenir durablement votre évolution. Bénéficiez maintenant
d'une feuille de route complète.