DATE SUBDUR D'0001-01-01' DATEDIFF:*D DATEDIFF DIV 7 XXX MVR REM (1.0) REM = 0: Monday 1: Tuesday 6: Sunday
Unconfigured Ad Widget
Collapse
Announcement
Collapse
No announcement yet.
Day of the Week
Collapse
X
-
Day of the Week
RPGIV is a beautiful thing! Here's a .zip if you want some date procedures.
p DayOfWeek b Export d DayOfWeek pi 1s 0 d InputDate d Const d DayOfWeek s 11s 0InputDate subdur d'1998-08-01' DayofWeek:*D div 7 DayofWeek mvr DayOfWeek if DayOfWeek > 0 return DayOfWeek else return DayOfWeek + 7 endif p DayOfWeek e p DayName b Export d DayName pi 32a Varying d InputDate d Const d ds d Days 70a Inz('Sunday + d Monday + d Tuesday + d Wednesday + d Thursday + d Friday + d Saturday ') d Day 10a Dim(7) Overlay(Days)return %trim(Day(DayOfWeek(InputDate))) p DayName e
Date Procedures.zip
Comment
Comment