Local a,b,ac,du,moi ClrIO Disp "attention prorata se calcul" Disp "en jour exact en mois de" Disp "30 jours" Pause " " Input "montant de l'acquiition :",ac Input "duree de l'amortissement :",du Input "prorata en jours :",moi If moi=0 Then 0->b Else 1->b EndIf newMat(du+1+b,5)->lin For a,1,du+b a->lin[a+1,1] ac->lin[a+1,2] EndFor annees->lin[1,1] base->lin[1,2] annuite->lin[1,3] "am cumule"->lin[1,4] "vnc"->lin[1,5] For a,1+b,du ac*1/du->lin[a+1,3] EndFor If moi0 Then ac*1/du*moi/360->lin[2,3] lin[3,3]-lin[2,3]->lin[du+2,3] EndIf lin[2,3]->lin[2,4] For a,2,du+b lin[a,4]+lin[a+1,3]->lin[a+1,4] EndFor For a,1,du+b ac-lin[a+1,4]->lin[a+1,5] EndFor setMode("Split 1 App","Data/Matrix Editor")