Re: Month/Dates..

[Anton Gombkötö <Gombkoetoe@xxxxxxxxxx>]

Just to complete Jon's great example:

WorkDate now has the beginning of the month (i agree in assuming "01" as the
beginning of the month, at least i didn't notice any exception from the rule
:-)

C            ADDDUR    1:*M        WorkDate
C            SUBDUR    1:*D        WorkDate

WorkDate now holds the last day of the month.

ad business days:

had to solve this one before; to shorten the story: it ended up in a PF with
a single record for every day and a field "working day 0/1" and a LF
containing only working days. A SETLL with the desired day and a READ gives
the same day, if it's a working day, or the next working day, if the
SETLL-date wasn't a working day.


-----Ursprüngliche Nachricht-----
Von: <Jon.Paris@halinfo.it>
An: <RPG400-L@midrange.com>
Gesendet: Donnerstag, 09. Dezember 1999 16:32
Betreff: Re: Month/Dates..


>
>
>  >> Please suggest the easy way to know how to determine the previous
month
> name, the staring date & ending date of the previous month????.
>
>
>
>      D Today           S               D   Inz(*Sys)
>      D WorkDate        S               D
>      D Month           S              2P 0
>      D Day             S              2P 0
>
>      C                   Extract   Today         Day:*D
>      C     Today         SubDur    Day:*D        WorkDate
>      C                   Extrct    WorkDate      Day:*D
>      C                   Extract   WorkDate      Month:*M
>
> At this point Month contains the month number and you can simply use it
against
> an array of month names.  Day contains the last day of the month - it is
left to
> you to calculate the first day of the month (hint - it is usually 1 <g>)
If you
> mean business day - then you'll have to calculate what day of the week the
first
> and last days represent and then increment/decrement the day to get to the
> Monday/Friday.
>
>
> +---
> | 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
+---