定期储蓄存款利息计算源码.doc

/* lxjs.c */getll(mk,bp,ep,rd,rv)char mk;long bp,ep,rd;double rv;int i,l,cc;char s5;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(mk0-!) next(计息时遇到错误.利率找不到:,mk,1);fileclose(drate);return(-1);rdi=p.rq;rvi=p.rate;cc=dbfind(drate,NEXT,(char *)0,&l,&p);while(cc=0 & strcmp(mk,p.num)=0 & epp.rq) i+;rdi=p.rq;rvi=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 nu20;long rd5;double rv5;INDEX p;strcpy(nu,zh);sprintf(nu+4,%3d,qx);if(nu4= ) nu4=0;if(nu5= ) nu5=0;nu7=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 = rv0;return;hzgblx(lb,le,ce,lx,nu)long lb,le;double ce,*lx;char *nu;int i,n;int dd;long rd30;double rv30,xx;n=getll(nu,lb,le,rd,rv);if(n= -1) *lx=0.0; return(-1);rdn+1=le;i=1;xx=0.0;while (i=n+1)if(i=1) dd=ldayof(lb,rdi);else dd=ldayof(rdi-1,rdi);xx += ce * dd * rvi-1/(360*100);i+;i=(xx30)?30:y2;mm=(y1=7)?y1:(y1+12);dd=360-(mm-7)*30+d-1);k=(m=12) i=13;else if (i=1) i+;else if(days=15) i=1;else i=0;get1ll(nu,i,ld,&ll2);get1ll(nu,0,ld,&ll1);if (i=13) x=-1*m*(360*ll2+(days-360)*ll