谢谢楼上各位
nYear=2016
nMonth=1
dDate=DATE(nYear,nMonth,1)
do case
   dDate=28
   repl all bjrs with (L1+L2+L3+L4******+L28)/dDate
   dDate=29
   repl all bjrs with (L1+L2+L3+L4******+L28+L29)/dDate
   dDate=30
   repl all bjrs with (L1+L2+L3+L4******+L28+L29+L30)/dDate
   dDate=31
   repl all bjrs with (L1+L2+L3+L4******+L28+L29+30+L31)/dDate
ENDDO
有没有比上述代码更清晰简捷 谢谢
  

是这样吗？
nYear=2016
nMonth=1
dDate=DATE(nYear,nMonth,1)
do case
case dDate=28
   repl all bjrs with (L1+L2+L3+L4******+L28)/dDate
case dDate=29
   repl all bjrs with (L1+L2+L3+L4******+L28+L29)/dDate
case dDate=30
   repl all bjrs with (L1+L2+L3+L4******+L28+L29+L30)/dDate
case dDate=31
   repl all bjrs with (L1+L2+L3+L4******+L28+L29+30+L31)/dDate
ENDcase

nYear=2016
nMonth=1
dDate=DATE(nYear,nMonth,1)
DIMENSION aL[31]  && L1, L2, L3, L4,******,L28,L29,L30,L31
nL = 0
FOR i = 1 TO dDate
    nL = nL + aL[i]
ENDFOR
nL = nL/dDate
REPLACE ALL bjrs WITH nL

[此贴子已经被作者于2016-1-5 22:03编辑过]

受教了。我还停留在N年前的老思维模式，现在的函数没跟上。感觉是不是11,12楼的还缺了一句计算天数的的语句：GOMONTH(dDate,1)-dDate

nYear = 2016
nMonth = 1
dDate = date(nYear,nMonth,1)    && 本月1日
dDate = gomonth(dDate,1) - 1    && 本月最后一天
nDay = day(dDate)               && 获取天数
nSum = 0
for i = 1 to nDay
    nSum = nSum + eval("L"+tran(i))    && 假设 L1、L2……为字段，求各字段的和
next
replace bjrs with nSum           && 将汇总结果保存到表字段

取当月天数用13楼的办法是最简洁的。