|
midrange.com
D DayOfWeek PR 1S 0
D AnyDate D CONST DATFMT(*USA)
D DayNameL PR 9A
D AnyDate D CONST DATFMT(*USA)
D DayNameS PR 3A
D AnyDate D CONST DATFMT(*USA)
/eject
P DayOfWeek B EXPORT
***** DayOfWeek - Calculates day of week (Monday = 1, Tuesday = 2, etc
* - for any date.
* - Input: WorkDate (Date field in *USA format)
* - Result: WorkDay (Single digit numeric)
D PI 1S 0
D WorkDate D CONST
D AnySunday S D INZ(D'04/02/1995')
D WorkNum S 7 0
D WorkDay S 1S 0
C WorkDate SubDur AnySunday WorkNum:*D
C WorkNum Div 7 WorkNum
C MvR WorkDay
C If WorkDay < 1
C Return WorkDay + 7
C Else
C Return WorkDay
C EndIf
P DayOfWeek E
/eject
P DayNameL B EXPORT
D DayNameL PI 9A
D WorkDate D CONST
D DS
D DayData 42 Inz('Mon Tues Wednes+
D Thurs Fri Satur Sun ')
D DayArray 6 Overlay(DayData) Dim(7)
C Return %TrimR(DayArray(DayOfWeek(WorkDate))) +
C 'day'
P DayNameL E
/eject
P DayNameS B EXPORT
D DayNameS PI 3A
D WorkDate D CONST
D DS
D DayData 21 Inz('MonTueWedThuFriSatSun')
D DayArray 3 Overlay(DayData) Dim(7)
C Return %TrimR(DayArray(DayOfWeek(WorkDate)))
P DayNameS E
Rob Berendt
==================
Remember the Cole!
"Mark A. Manske"
<mmanske@minter-we To: <RPG400-L@midrange.com>
isman.com> cc:
Sent by: Subject: RE: Can I get the
Day of the week?
owner-rpg400-l@mid
range.com
05/15/01 04:24 PM
Please respond to
RPG400-L
Check the archives, there are some good examples there - basically in ILE
rpg this is
very easy, without going into detail, pick a date that you know which day
of
the week it is,
do a subdur with the current date to get the days differance(all date
formatted fields of
course) work out that number to a 1-7 digit assigning ie:1=Sunday, 2=Monday
and you have it.
HTH
Mark A. Manske
[mailto:mmanske@minter-weisman.com]
Sr. Project Lead
Minter-Weisman
-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Jade Richtsmeier
Sent: Tuesday, May 15, 2001 3:44 PM
To: RPG400-L@midrange.com
Subject: Can I get the Day of the week?
One our projects here prints a letter and we need to be able to print the
day of the week of a given date. I know that the system value QDAYOFWEEK
tells me what the day of the week is for today, but how can I find out the
day of the week for a given date?
BTW, the letter program is written in RPG - (just to confirm that it
belongs
on the RPG400-L list :).
TIA,
Jade Richtsmeier
jade.richtsmeier@mcis.cog.mn.us
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
