FOR nYear = 2012 TO 2020
    ? 取月天数(nYear, 1)
    FOR nMonth = 2 TO 12
        ?? 取月天数(nYear, nMonth)
    ENDFOR
ENDFOR

FUNCTION 取月天数(n年, n月)
    RETURN DAY(GOMONTH(DATE(n年, 1, 31), n月 - 1))
ENDFUNC

[ 本帖最后由 吹水佬 于 2014-12-2 07:55 编辑 ]

?DAY(DATE()-DAY(DATE())) &&上月天数
?DAY(GOMONTH(DATE(),1)-DAY(GOMONTH(DATE(),1))) &&本月天数
?DAY(GOMONTH(DATE(),2)-DAY(GOMONTH(DATE(),2))) &&下月天数
?DAY(GOMONTH(DATE(),3)-DAY(GOMONTH(DATE(),3))) &&再下月天数

代码改进如下：
ldDate={^2014.02.28}
?DAY(GOMONTH(DATE(Year(ldDate),1,31), Month(ldDate)-1))

看错了，抱歉！

[ 本帖最后由 sdta 于 2014-12-2 15:53 编辑 ]

DAY(DATE()-DAY(DATE())) 上月天数，应该没问题吧，能举个反例吗

换成你们的格式，就变成这样
ldDate={^2014.02.28}
?DAY(GOMONTH(ldDate,1)-DAY(GOMONTH(ldDate,1)))

自己写个函数  根据平闰年的规则自己计算

也可以这样：
  年=2014       && 一个合格的年份 (任意)
  月=8          && 一个合格的月份 (任意)
  td=CTOD("01/01/"+ALLTRIM(str(年)))
  ? GOMONTH(td,月)-GOMONTH(td,月-1)        && 该月内天数

提问者必须知道，因为年份不同，某月的天数不完全一致。因此，严格的提法是如何获取某年某月的天数。
nYear=2014
nMonth=12
dDate=DATE(nYear,nMonth,1)
?GOMONTH(dDate,1)-dDate