Subject: Re: subdur to years+months (was: ILE Question) From: Vanja Jovic Date: Tue, 16 Nov 1999 19:49:21 -0700

```> Chris Bipes wrote:
> Just for fun, using an Eval, how would one retain the remainder?  Or should I
>RTFM?

OK, you get me :))

Just for the fun of it:

any number X can be represented in form  X = p * q + r , (q would be 12
in this case), r-reminder so:

EVAL    r = X - q * %int(X/q)

but my favorite is this beautiful algorithm that uses only subtraction
in order to calculate reminder:

r = X;
Do While r >= q
r = r - q;
End Do

What is left is r - reminder from X divided by q.

It can be modified to calculate result of division also:

r = X;
p = 0;
Do While r >= q
r = r - q;
p = p + 1;
End Do

r - reminder
p - result of the division X/q

Have fun,

Vanja Jovic
Canada

> Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.         http://www.cross-check.com
> 6119 State Farm Drive    Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928 Fax: 707 586-1884
>
> *Note to Recruiters
> Neither I, nor anyone that I know of, is interested in any new and/or
> exciting positions. Please do not contact me.
>
> -----Original Message-----
> From: bmorris@ca.ibm.com [mailto:bmorris@ca.ibm.com]
> Sent: Tuesday, November 16, 1999 1:56 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: subdur to years+months (was: ILE Question)
>
> >Date: Tue, 16 Nov 1999 15:27:26 EST
> >From: "Mauricio Della-Quercia" <mauriciodq@hotmail.com>
> >...
> >I am trying to arrive at years and months on a subdur of date of
> employment
> >to current date.  I can do *y or *m, but how can I get a breakdown of both
> >years and months.
> >...
>
> Jim, try this:
>
> D years           s              5p 0
> D months          s              5p 0
>
> C     today         subdur    hiredate      months:*months
> C     months        div       12            years
> C                   mvr                     months
>
> Barbara Morris
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
```

This thread ...

Replies:

This mailing list archive is Copyright 1997-2019 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].