主题：[求助]关于"复杂利息计算"的新问题（“当月结息”如何改为“次月结息”？）

你把公式贴出来看看

一，%DYHD%的新公式：
"Round2("+Text([缴费合计])+"*"+Text((1+FindText("分段计息","计息标准","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1))^(Days360(EOMONTH([缴费时间],0)+1,If(Text([核定日期])>"" And FindRow("分段计息","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1)=FindRow("分段计息","分段计息1","<=",[核定日期],-1),[核定日期],If(Text(FindText("分段计息","分段计息2","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1))="至今",ToDay(),FindText("分段计息","分段计息2","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1))))/360))+Substitute(Substitute("|"+Eval("Text("+Substitute(Substitute(Substitute(Substitute(ListFor("分段计息","A",2)+"|0","|","!",If(Text([核定日期])="",FindRow("分段计息","分段计息2","<",ToDay(),-1),FindRow("分段计息","分段计息2","<",[核定日期],-1))),"!","|",FindRow("分段计息","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1)),"|","*0)+""|""+Text("),"!","*1)+""|""+Text(")+"*1)"),"|0",""),"|","*")+If(Text([核定日期])="",If(FindRow("分段计息","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1)=FindRow("分段计息","分段计息1","<=",ToDay(),-1),"","*"+Text(FindText("分段计息","A","分段计息1","<=",ToDay(),-1))),If(FindRow("分段计息","分段计息1","<=",EOMONTH([缴费时间],0)+1,-1)=FindRow("分段计息","分段计息1","<=",[核定日期],-1),"","*"+Text((1+FindText("分段计息","计息标准","分段计息1","<=",[核定日期],-1))^(Days360(FindText("分段计息","分段计息1","分段计息1","<=",[核定日期],-1),[核定日期])/360))))+",2)"
二，窗口中＂望远镜＂计算的公式：
FilterFor("保险编码","=",[%BXBH%],2) and ClearGrid("待遇审核") And Import("待遇审核",filename,"缴费明细","1498shx0099","保险编码","=",[%BXBH%]) And DelRow("待遇审核",1)And Replacefor("待遇审核","核定日期",[%核定日期%])and RecalcCol("待遇审核",11,16)and FilterRGrid("待遇审核","保险编码","=",[%BXBH%],2)and OpenRView("待遇审核",1)and ReplaceFor("个人开户","年龄",year([待遇审核!核定日期])-year([待遇审核!出生年月])+if((month([待遇审核!核定日期])-month([待遇审核!出生年月]))>=1,0,-1),"保险编码","=",[%BXBH%])and SetVariable([%给付年龄%],[年龄])and ReplaceFor("个人开户","给付系数",[给付系数!养老金系数],"年龄","=",[给付系数!年龄])and ReplaceFor("个人开户","缴费总额",round([%jfhj00%],2),"保险编码","=",[%BXBH%])and ReplaceFor("个人开户","积累金额",round([%jlje%]*(1-[系统信息!管理费率]),2),"保险编码","=",[%BXBH%])and if([%dylx1%]="一次性支付",ReplaceFor("个人开户","月待遇",round([积累金额],2),"保险编码","=",[%BXBH%]),ReplaceFor("个人开户","月待遇",round([给付系数]*[积累金额],2),"保险编码","=",[%BXBH%]))and recalcRow(GridName,Row,Row,1)and if([%sfkf%]>0,SetLabel(".","该保险编码的记录已开户!")and ShowRelationRows()and SetLabel("历史记录",[%lsjls%])and SetLabel("个人缴纳0",[%lsgrj%])and SetLabel("集体补贴0",[%lsjtb%])and SetLabel("镇街补贴0",[%lszjb%])and SetLabel("区级补贴0",[%lscjb%])and SetLabel("缴费合计0",[%lsjfhj%]),SetLabel(".","该保险编码的记录尚未开户!建议点[新增开户记录]命令按钮或转入[开户处理]模块中新增该编码的参保户信息!")and ShowRelationRows() and SetLabel("历史记录","   ")and SetLabel("个人缴纳0","         ")and SetLabel("集体补贴0","         ")and SetLabel(&q

RAR文件下载
上面这个是我刚修改的最新全文件．

你是说窗口中本表字段积累金额和月待遇吗？

是的，老是不显示计算的值．
另外，我查＂个人开户＂表，发现其对应＂保险编码＂的＂缴费总额＂和＂积累金额＂列没有具体数据，说明：要么是没将窗口中＂望远镜＂计算的结果放入到＂个人开户＂表的对应＂保险编码＂记录的相应＂列＂；要么就是计算公式有误，没算得出来．
　　请再帮忙看一下．谢谢！

窗口按钮公式，这样试试：

FilterFor("保险编码","=",[%BXBH%],2) and ClearGrid("待遇审核") And Import("待遇审核",filename,"缴费明细","1498shx0099","保险编码","=",[%BXBH%]) And DelRow("待遇审核",1)And Replacefor("待遇审核","核定日期",[%核定日期%])and RecalcCol("待遇审核",12,15)and FilterRGrid("待遇审核","保险编码","=",[%BXBH%],2)and OpenRView("待遇审核",1)and ReplaceFor("个人开户","年龄",year([待遇审核!核定日期])-year([待遇审核!出生年月])+if((month([待遇审核!核定日期])-month([待遇审核!出生年月]))>=1,0,-1),"保险编码","=",[%BXBH%])and SetVariable([%给付年龄%],[年龄])and EvalFor("个人开户","给付系数","[给付系数!养老金系数]","年龄","=",[给付系数!年龄])and EvalFor("个人开户","缴费总额","round([%jfhj00%],2)","保险编码","=",[%BXBH%])and EvalFor("个人开户","积累金额","round([%jlje%]*(1-[系统信息!管理费率]),2)","保险编码","=",[%BXBH%])and if([%dylx1%]="一次性支付",EvalFor("个人开户","月待遇","round([积累金额],2)","保险编码","=",[%BXBH%]),EvalFor("个人开户","月待遇","round([给付系数]*[积累金额],2)","保险编码","=",[%BXBH%]))and recalcRow(GridName,Row,Row,1)and if([%sfkf%]>0,SetLabel(".","该保险编码的记录已开户!")and ShowRelationRows()and SetLabel("历史记录",[%lsjls%])and SetLabel("个人缴纳0",[%lsgrj%])and SetLabel("集体补贴0",[%lsjtb%])and SetLabel("镇街补贴0",[%lszjb%])and SetLabel("区级补贴0",[%lscjb%])and SetLabel("缴费合计0",[%lsjfhj%]),SetLabel(".","该保险编码的记录尚未开户!建议点[新增开户记录]命令按钮或转入[开户处理]模块中新增该编码的参保户信息!")and ShowRelationRows() and SetLabel("历史记录","   ")and SetLabel("个人缴纳0","         ")and SetLabel("集体补贴0","         ")and SetLabel("镇街补贴0","         ")and SetLabel("区级补贴0","         ")and SetLabel("缴费合计0","         "))and if(usertype=5 or usertype=6,FilterRGrid("退休核准","保险编码","=",[%BXBH%],2)and if([%txhj%]=0,MsgBox("该记录尚未初核,请先执行初核操作后才能复核",0,4),if([月待遇]-[退休核准!月待遇]=0,MsgBox("此次计算的月待遇标准与初核的标准一样,建议直接按下面的[复核]按钮!",0,4),MsgBox("此次计算的月待遇标准与初核的标准不一样,此笔记录不能执行[复核]操作!",0,4))),True)

自己再顶一下

看看36楼的公式

我没注意到33楼的文件，36楼的公式是按2楼文件做的，33楼文件的公式应该这样：

FilterFor("保险编码","=",[%BXBH%],2) and ClearGrid("待遇审核") And Import("待遇审核",filename,"缴费明细","1498shx0099","保险编码","=",[%BXBH%]) And DelRow("待遇审核",1)And Replacefor("待遇审核","核定日期",[%核定日期%])and RecalcCol("待遇审核",11,16)and FilterRGrid("待遇审核","保险编码","=",[%BXBH%],2)and OpenRView("待遇审核",1)and ReplaceFor("个人开户","年龄",year([待遇审核!核定日期])-year([待遇审核!出生年月])+if((month([待遇审核!核定日期])-month([待遇审核!出生年月]))>=1,0,-1),"保险编码","=",[%BXBH%])and SetVariable([%给付年龄%],[年龄])and EvalFor("个人开户","给付系数","[给付系数!养老金系数]","年龄","=",[给付系数!年龄])and EvalFor("个人开户","缴费总额","round([%jfhj00%],2)","保险编码","=",[%BXBH%])and EvalFor("个人开户","积累金额","round([%jlje%]*(1-[系统信息!管理费率]),2)","保险编码","=",[%BXBH%])and if([%dylx1%]="一次性支付",EvalFor("个人开户","月待遇","round([积累金额],2)","保险编码","=",[%BXBH%]),EvalFor("个人开户","月待遇","round([给付系数]*[积累金额],2)","保险编码","=",[%BXBH%]))and recalcRow(GridName,Row,Row,1)and if([%sfkf%]>0,SetLabel(".","该保险编码的记录已开户!")and ShowRelationRows()and SetLabel("历史记录",[%lsjls%])and SetLabel("个人缴纳0",[%lsgrj%])and SetLabel("集体补贴0",[%lsjtb%])and SetLabel("镇街补贴0",[%lszjb%])and SetLabel("区级补贴0",[%lscjb%])and SetLabel("缴费合计0",[%lsjfhj%]),SetLabel(".","该保险编码的记录尚未开户!建议点[新增开户记录]命令按钮或转入[开户处理]模块中新增该编码的参保户信息!")and ShowRelationRows() and SetLabel("历史记录","   ")and SetLabel("个人缴纳0","         ")and SetLabel("集体补贴0","         ")and SetLabel("镇街补贴0","         ")and SetLabel("区级补贴0","         ")and SetLabel("缴费合计0","         "))and if(usertype=5 or usertype=6,FilterRGrid("退休核准","保险编码","=",[%BXBH%],2)and if([%txhj%]=0,MsgBox("该记录尚未初核,请先执行初核操作后才能复核",0,4),if([月待遇]-[退休核准!月待遇]=0,MsgBox("此次计算的月待遇标准与初核的标准一样,建议直接按下面的[复核]按钮!",0,4),MsgBox("此次计算的月待遇标准与初核的标准不一样,此笔记录不能执行[复核]操作!",0,4))),True)

谢谢！
我先试试！