以下是引用whinda在2014-1-20 12:20:10的发言：

function last25
local dToday,nYear,nMonth,cDate,dDate
dToday=date()
nYear=year(dToday)
nMonth=month(dToday)
nYear=iif(nMonth=1,nYear-1,nYear)
nMonth=iif(nMonth=1,12,nMonth-1)
cDate="{^"+alltrim(str(nYear))+"/"+alltrim(str(nMonth))+"/"+"25}"
dDate=&cDate
return dDate
endfunc如果你是强制为上月25号，还得考虑到翻年的问题，所以写函数如上，应该是你要的。

以下是引用厨师王德榜在2014-1-20 14:27:13的发言：

当月份为1时，往上翻就是12月，上一年就应＝当前年－1　，这个问题你必须考虑进去。
其余的，代码本身并不难写，就不啰嗦了。