RE: Calculating Duration in days/hours from timestamp field

[Dean Bathke <dbathke@xxxxxxxxxxxx>]

Thanks Martin

I couldnt find much info on %DIFF although it DOES roll off the tongue
rather nicely, LOL
In any case I found this little sample and modified it to work as I needed
it to.
If you have any info or examples you want to share concerning the %DIFF BIF,
Id love to see it..
Thanks


Dtimenow          S               T   inz(*sys)
Dtimethen         s               t   inz(T'16.30.27')
Ddatenow          s               d   inz(*sys)
Ddatethen         s               d   inz(D'2002-02-27')
Dmin              s             10i 0
Dtotalmin         s             10i 0
Ddays             s             10i 0
Dhrs              s             10i 0
C     timenow       subdur    timethen      min:*mn
C     datenow       subdur    datethen      days:*d
C                   eval      totalmin = days * 1440 + min
C                   eval      hrs = %div(totalmin:60)
C                   eval      min = %rem(totalmin:60)
C                   dump
C                   eval      *inlr = *on

> -----Original Message-----
> From: Hillier, Martin [SMTP:Martin.Hillier@Mattel.com]
> Sent: Tuesday, May 21, 2002 9:48 AM
> To:   'rpg400-l@midrange.com'
> Subject:      RE: Calculating Duration in days/hours from  timestamp field
>
> This message is in MIME format. Since your mail reader does not understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> Hi Dean
>
> Have you looked at the %DIFF BIF.
>
> That rolls of the tongue nicely :-)
>
> Cheers,
>       Martin
>
> > -----Original Message-----
> > From:       Dean Bathke [SMTP:dbathke@Quintrex.com]
> > Sent:       21 May 2002 15:35
> > To: 'rpg400-l@midrange.com'
> > Subject:    Calculating Duration in days/hours from  timestamp field
> >
> > Good morning, I am trying to calculate duration and it just seems that I
> > am
> > jumping through alot of hoops. We have dates stoerd as YYYYMMDD and TIme
> > values as HHMMSSss. I was under the impression that I build 2 timestamps
> > and
> > then subdur but I am unsure if this is the way to go anyone have any
> > pointers to gewt me in the right direction? I have been looking at the
> > archieves at http://archive.midrange.com/rpg400-l.
> >
> >
> > Thanks all
> > >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.