RE: calculate the difference between two time stamps in hh:mm:ss

["Mike Haston ** Data" <MHaston@xxxxxxx>]

Barbara, I am spacing big time.  I'm trying to initialize a timestamp field 
with a date and time field.  I haven't a clue what I'm currently doing!  

Thanks if you can straighten me out.

d start           s               z              
d end             s               z              
d hoursRemaining  s              5i 0            
d dateRecv        s               d              
d timeRecv        s               t              
d ediDate         s              8s 0            
d ediTime         s              6s 0            
                                                 
 /free                                           
                                                 
  ediDate = 20030326;                            
  ediTime = 083000;                              
                                                 
  test(de) *iso ediDate;                         
  if not %error;                                 
    start =  %date( ediDate );          <====  doesn't like it one bit!         
  endif;                                         

 blah, blah, blah

Mike


-----Original Message-----
From: Barbara Morris [mailto:bmorris@xxxxxxxxxx]
Sent: Wednesday, February 26, 2003 2:43 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: calculate the difference between two time stamps in
hh:mm:ss


Richard B Baird wrote:
> 
> good morning all,
> 
> I've searched the archives, but didn't find much help - I'm trying get
> hh:mm:ss from the difference between two timestamp fields for displaying in
> user readable format on a dspf.
> 

Richard, you can't directly get a time from subtracting two timestamps
because a time represents a time of day, not a duration.  Try adding the
seconds to a time value of 00.00.00 to get your duration in a Time
field.

Try this:

      time = t'00.00.00' + %seconds(%diff(ts1 : ts2 : *seconds));

or this:

c    ts1          subdur    ts2             secs:*seconds
c    t'00.00.00'  adddur    secs:*seconds   time

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.