原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
定期储蓄存款利息计算源码
/* lxjs.c */
getll mk,bp,ep,rd,rv
char mk[];
long bp,ep,rd[];
double rv[]; int i,l,cc;
char s[5];
RATE p;
i 0;
fileopen FILEOPEN,drate,nu_rq,ratlist,RAT_N ;
strcpy p.num,mk ;
p.rq bp;
cc dbfind drate,GREATER, char * 0,l,p ;
if cc cc dbfind drate,LAST, char * 0,l,p ;
else cc dbfind drate,PREVIOUS, char * 0,l,p ;
if cc || strcmp mk,p.num if mk[0]-! next 计息时遇到错误....利率找不到:,mk,1 ;
fileclose drate ;
return -1 ; rd[i] p.rq;
rv[i] p.rate;
cc dbfind drate,NEXT, char * 0,l,p ;
while cc 0 strcmp mk,p.num 0 ep p.rq i++;
rd[i] p.rq;
rv[i] p.rate;
cc dbfind drate,NEXT, char * 0,l,p ; fileclose drate ;
return i ; get1ll zh,qx,ld,x
char zh[];
int qx;
long ld;
double *x; int l;
char nu[20];
long rd[5];
double rv[5];
INDEX p;
strcpy nu,zh ;
sprintf nu+4,%3d,qx ;
if nu[4] nu[4] 0;
if nu[5] nu[5] 0;
nu[7] 0;
fileopen FILEOPEN,dindex,idxnu,idxlist,IDX_N ;
dbfind dindex,COMPARISON,nu,l,p ;
fileclose dindex ;
strcpy nu,p.idxref ;
l getll nu,ld,ld,rd,rv ; /* l getll nu,ld+1,ld+1,rd,rv ; */
if l -1 *x 0.0;
else *x rv[0];
return; hzgblx lb,le,ce,lx,nu
long lb,le;
double ce,*lx;
char *nu; int i,n;
int dd;
long rd[30];
double rv[30],xx;
n getll nu,lb,le,rd,rv ;
if n -1 *lx 0.0; return -1 ; rd[n+1] le;
i 1;
xx 0.0;
while i n+1 if i 1 dd ldayof lb,rd[i] ;
else dd ldayof rd[i-1],rd[i] ;
xx + ce * dd * rv[i-1]/ 360*100 ;
i++; i xx 0.00 ? -10 :10; /* */
modf fabs xx/10 +0.5,lx ; /* 变为毫后再舍入 */
*lx * i;
return 0 ; hzlx nu,ld,m,lx
char *nu;
long ld;
double m,*lx; int k,mm,d,dd;
short y[3];
double x,ll;
rjulmdy ld,y,YDATETYPE ;
/* get1ll nu,0,ld,ll ; */
d y[2] 30 ?30:y[2];
mm y[1] 7 ?y[1]: y[1]+12 ;
dd 360- mm-7 *30+d-1 ;
k m 0.00 -1 : 1;
modf m*k /100,x ;
x x * dd*3/300;
modf x*10+0.5,lx ;
*lx *lx*k/10; /* 给出三厘积数 */
return; tzlx nu,kh,ld,m,lx,ll
char *nu;
long ld,kh;
double m,*lx,*ll; long days;
int i;
double x,ll1,ll2;
days ldayof kh,ld ;
i int days/30 ;
if i 12 i 13;
文档评论（0）