empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(loan_owed): New, factored out common code.

Browse source 
(coll, fina, repa, shark, disloan): Use it.
This commit is contained in:
Markus Armbruster 2004-08-20 08:16:34 +00:00
parent e502056dab
commit e7c9da21e5
6 changed files with 49 additions and 147 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/lib/subs/disloan.c
View file

@ -51,14 +51,10 @@
#include "prototypes.h"
int
disloan(int n, register struct lonstr *loan)
disloan(int n, struct lonstr *loan)
{
time_t now;
time_t normaltime;
time_t doubletime;
time_t accept;
double rate;
double owe;
if (loan->l_status == LS_FREE)
return 0;
@ -84,30 +80,11 @@ disloan(int n, register struct lonstr *loan)
return 1;
}
/*
* split duration now - l_lastpay into regular (up to l_duedate)
* and extended (beyond l_duedate)
*/
normaltime = loan->l_duedate - loan->l_lastpay;
doubletime = now - loan->l_duedate;
if (normaltime < 0) {
doubletime += normaltime;
normaltime = 0;
}
if (doubletime < 0) {
normaltime += doubletime;
doubletime = 0;
}
rate = ((double)loan->l_irate / 100.0) / (loan->l_ldur * SECS_PER_DAY);
owe = ((double)loan->l_amtdue *
(((double)normaltime * rate + 1.0) +
((double)doubletime * rate * 2.0))) + 0.5;
pr("Amount paid to date $%ld\n", loan->l_amtpaid);
pr("Amount due (if paid now) $%.2f", owe);
if (doubletime == 0) {
pr("Amount due (if paid now) $%.2f", loan_owed(loan, now));
if (now <= loan->l_duedate) {
pr(" (if paid on due date) $%.2f\n",
loan->l_amtdue * ((loan->l_duedate - loan->l_lastpay) * rate + 1.0));
loan_owed(loan, loan->l_duedate));
pr("Due date is %s", ctime(&loan->l_duedate));
} else
pr(" ** In Arrears **\n");

36
src/lib/subs/trdsub.c
View file

@ -282,3 +282,39 @@ get_outstand(int cnum)
}
return loantot;
}
/*
* Return amount due for LOAN at time PAYTIME.
*/
double
loan_owed(struct lonstr *loan, time_t paytime)
{
time_t rtime; /* regular interest time */
time_t xtime; /* double interest time */
double rate;
int dur;
/*
* Split interval paytime - l_lastpay into regular (up to
* l_duedate) and extended (beyond l_duedate) time.
*/
rtime = loan->l_duedate - loan->l_lastpay;
xtime = paytime - loan->l_duedate;
if (rtime < 0) {
xtime += rtime;
rtime = 0;
}
if (xtime < 0) {
rtime += xtime;
xtime = 0;
}
if (CANT_HAPPEN(rtime < 0))
rtime = 0;
dur = loan->l_ldur;
if (CANT_HAPPEN(dur <= 0))
dur = 1;
rate = loan->l_irate / 100.0 / (dur * SECS_PER_DAY);
return loan->l_amtdue * (1.0 + (rtime + xtime * 2) * rate);
}