Re: Question on coding for TIME "calculations"

Yes, its a little more complicated than simply using a SUBDUR.

However, consider this:  If you used SUBDUR to calculate hours, mins
and seconds all in one statement, what would the result field be?

It couldn't just be another "Time" field, because a time field must
always contain a valid time of day, and with subdur you can
(at least potentially) calculate negative numbers.

At any rate, doing what you want to do isnt particularly difficult.
heres a code sample:

     D T1              S               T
     D T2              S               T
     D TotSec          S             15  0
     D Hours           S              2  0
     D Mins            S              2  0
     D Secs            S              2  0

     C                   eval      T1 = T'08.00.00'
     C                   eval      T2 = T'16.30.00'
     C     T2            SUBDUR    T1            TotSec:*S
     C     TotSec        div       3600          Hours
     c                   mvr                     TotSec
     c     TotSec        div       60            Mins
     c                   mvr                     Secs

Hope that helps,
   Scott Klement
   Information Systems Manager
   Klement's Sausage Co, Inc.


Chuck Lewis <CLEWIS@IQUEST.NET> wrote:
> Hi Folks ]
>
> Maybe I'm making this harder than it needs to be (hope so ]) but I
>  need
> to be able to tell the "interval in time measurements of time (i.e.
>  8:00
> to 4:30 is 8 hours and 30 minutes in "human time" and appear
>  clueless...
>
> I've looked at the *SUBDR deal but it appears you have to do it for
> hours and minutes separately (?).
>
> Thanks in advance ]
>
> Chuck
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *