> Tech > Figure 1A

Figure 1A

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

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 cette ressource

Mac en entreprise : le levier d’un poste de travail moderne

Ce livre blanc répond aux 9 questions clés des entreprises sur l’intégration du Mac : sécurité, compatibilité, gestion, productivité, coûts, attractivité talents, RSE et IA, et l’accompagnement sur mesure proposé par inmac wstore.

Les articles les plus consultés

A travers cette chaîne

A travers ITPro

Les plus consultés sur iTPro.fr

Articles les + lus

CES 2026 : l’IA physique et la robotique redéfinissent le futur

Les 3 prédictions 2026 pour Java

Semi-conducteurs : comment l’Irlande veut contribuer à atténuer la pénurie mondiale de puces

Face à l’urgence écologique, l’IT doit faire sa révolution

D’ici 2030, jusqu’à 90 % du code pourrait être écrit par l’IA, pour les jeunes développeurs, l’aventure ne fait que commencer

A lire aussi sur le site

Cloud 2026 : 5 tendances à anticiper pour les PME françaises

Sous la pression de la facturation électronique obligatoire, de la souveraineté numérique et de l’IA pour tous les métiers, les PME doivent agir rapidement. Ce changement de paradigme redéfinit compétitivité, résilience et performance.

À la une de la chaîne Tech

Comment fiabiliser l’audio et la connectique dans les environnements d’entreprise ?

Le travail hybride s’est particulièrement développé ces dernières années, notamment avec l’émergence du télétravail. Il est donc aujourd’hui normal de communiquer à distance avec ses employés et ses collègues.