× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Look into http://www.gsssi.com/fjentry.html

FINANCES
Fin_ACP() - Average Collection Period........................................................................................... 75
Fin_Ann() - Regular Annuity........................................................................................................... 76
Fin_AnnD() - Annuity Due................................................................................................................. 77
Fin_CI() - Compound Interest Calculations.................................................................................. 78
Fin_CR() - Current Ratio................................................................................................................ 79
Fin_DR() - Debt Ratio .................................................................................................................... 80
Fin_EOQ() - Economic Order Quantity ............................................................................................ 81
Fin_IT() - Inventory Turnover Ratio............................................................................................. 82
Fin_NPM() - Net Profit Margin......................................................................................................... 83
Fin_PE() - Price Earnings Ratio .................................................................................................... 84
Fin_POR() - Payout Ratio................................................................................................................. 85
Fin_QR() - Quick Ratio (aka Acid Test) ........................................................................................ 86
Fin_ROA() - Return on Assets .......................................................................................................... 87
Fin_ROE() - Return on Equity.......................................................................................................... 88
Fin_RT() - Receivable Turnover .................................................................................................... 89
Fin_SI() - Simple Interest Calculations ........................................................................................ 90

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Yeung
Sent: Thursday, April 12, 2012 12:26 PM
To: RPG programming on the IBM i / System i
Subject: Re: RPG math

On Thu, Apr 12, 2012 at 6:55 AM, Dave <dfx1@xxxxxxxxxxxxxx> wrote:
I am now having to reproduce the EXCEL PMT function in RPG. Maybe
someone has already done this?

I'm sure it's been done thousands of times by now. ;) But it's probably squirreled away in thousands of ad-hoc programs.

Anyway, I've been given a formula to code and an EXCEL spreadsheet to
control my results.

Which I've coded like this :

    MonthlyRate = interestRate /12;
     MonthlyPayment = ( LoanAmount / MonthlyRate ) *  ( 1 - ( 1 +
MonthlyRate ) ** ( -1  * numberOfPayments ));

I think we may have bigger problems here than whether to use decimals or floats. Are you sure that's the formula?

(I haven't looked carefully at the LoanRemaining calculation, but I figure it's better to concentrate on one formula at a time in any
case.)

John
--
This is the RPG programming on the IBM i / System i (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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.