|
then break it down to the lowest common denominator, seconds, minutes, and recalculate the hours, seconds, and minutes. Then put in a sub-procedure in a service program Thanks, Mark Mark Walter Sr. Programmer/Analyst Hanover Wire Cloth a div of CCX, Inc. mwalter@xxxxxxxxxxxxxxx http://www.hanoverwire.com 717.637.3795 Ext.3040 /"\ \ / X / \ "Bob Cozzi" <cozzi@xxxxxxxxx> To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx> Sent by: cc: rpg400-l-bounces@xx Subject: RE: Finding the Elapsed time between two date fields drange.com 03/31/2003 01:19 PM Please respond to RPG programming on the AS400 / iSeries You can't. You get... The total hours between the two date/time values. The total minutes between the two values. And The total seconds between the two values. Using your three opcodes. So, for example, if the elapse time was 10 hours and 15 seconds you would get: 10 hours 600 minutes 3615 seconds Bob Cozzi -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Andy Hautamaki Sent: Monday, March 31, 2003 11:57 AM To: RPG400-L@xxxxxxxxxxxx Subject: Finding the Elapsed time between two date fields I have two date fields *MDY with these values. '18:09:04' and '16:26:57'. All I want to do is find the total elapsed time in hours,minutes and seconds between them. I'm using the SUBDUR like this; EndTime SUBDUR StartTime Hour:*H EndTime SUBDUR StartTime Minute:*MN EndTime SUBDUR StartTime Second:*S Hour,Minute and second are part of a 6,0 data structure. When I put my program in debug my 'elapsed' variable contains 010227. I suspect its because of negatives I'm getting the minutes and seconds the way I am. What am I missing here? (Should I be doing this differently then SUBDUR?) Andy _______________________________________________ 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. _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.