Re: Can I get the Day of the week?

[James David Rich <james@xxxxxxxxxxx>]

On Tue, 15 May 2001, Jade Richtsmeier wrote:

> 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?

Here is the code we use (put this in a binding directory somewhere or
whatever you want):

Pgetdayofweek     B                   EXPORT
Dgetdayofweek     PI             1S 0
D dateiso                       10D   VALUE
Dsunday           S               D   inz(d'1997-08-03')

C     dateiso       subdur    sunday        numofdays:*D      7 0
C     numofdays     div       7             result            7 0
C                   mvr                     remainder         1 0

C                   select
C                   when      remainder>=0
C                   return    remainder+1
C                   when      remainder<0
C                   return    remainder+8
C                   endsl

Pgetdayofweek     E

Any comments or improvements are welcome.

James Rich
james@eaerich.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
+---