Re: Can I get the Day of the week?

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi James,

Just for fun, how about using a BIF? I have no idea if it's faster; then
again with today's processors, speed is not always a big issue. But it's
shorter. And by using 0001-01-01 as the base, I don't have to worry about
negatives. However, it does return Monday as 1 instead of the more
traditional Sunday, and I have no idea if it's correcting for dates prior to
1533 or whenever it was that the calendar was adjusted...

p getdayofweek    b
d getdayofweek    pi             1s 0
Mon-Sun = 1-7
d  dateiso                        d   value

c     dateiso       subdur    d'0001-01-01' numofdays:*D      7 0
c                   return    %rem(numofdays:7) + 1

p                 e

Regards,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "James David Rich" <james@eaerich.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, May 15, 2001 2:22 PM
Subject: Re: Can I get the Day of the week?


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


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.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
+---