Re: Time different in HRS: MINS

["HauserBirgitta" <Hauser@xxxxxxxxxxxxxxx>]

Hi,

the only way to achieve the result you want is to divide the time in minutes 
through 60 to get the full hours and then take the rest as minutes.

/Free
   MyHours = %Div(TimD: 60);   //Hours
   MyMinutes = %Rem(TimD: 60);   //Minutes
/End-Free

If you use embedded SQL to calculate time differences, the result for two 
times will be a 6 digit numeric value. The first 2 digits are representing 
the hours, the next two digits are representing the minutes and the last two 
digits are the seconds.

C/Exec SQL   Set :MyTimeNum = :TimeO - :TimeL
C/End-Exec

Mit freunlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les 
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)




----- Original Message ----- 
From: "Willie J. Moore" <WMoore@xxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, November 13, 2006 17:10
Subject: Time different in HRS: MINS


> I have calculated the differents between two times and put it out as 
> minutes. If the 'timed' field is over 60 minutes, I want it to display the 
> hrs:mins. If it is 59 mins or less, it can display as '  :59'.
> I am using the following code:
> TimeO         subdur    TimeI         timed:*mn         5 0
>
> I would appreciate any help or suggestions.
> Thanks,
> William Moore
>
>
> --
> 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.