请大家帮忙，例如今天是20140119，现在自动显示当前日期，我想当前日期自动显示为前一个月的25号自动显示为20131225。

PROCEDURE rqtext.Valid
 IF EMPTY(THISFORM.RQTEXT.VALUE)
    IF LASTKEY() = 5 .OR. LASTKEY() = 19
       RETURN -1
    ELSE
       RETURN 0
    ENDIF
 ENDIF
 IF LASTKEY() = 9 AND  .NOT. MDOWN()
    JZRQ = JZRQ - 1
     THISFORM.RQTEXT.REFRESH
    RETURN 0
 ELSE
    IF LASTKEY() = 148 AND  .NOT. MDOWN()
       JZRQ = JZRQ + 1
        THISFORM.RQTEXT.REFRESH
       RETURN 0
    ELSE
       IF ABS(JZRQ - DATE()) >= 10
          ?? CHR(7)
          IF ABS(JZRQ - DATE()) > 365
             WAIT WINDOW '日期有错！请检查。'
             RETURN 0
          ELSE
             WAIT WINDOW '日期是否有错，请检查。'
             IF LASTKEY() <> 13
                RETURN 0
             ENDIF
          ENDIF
       ELSE
          IF LASTKEY() <> 13 AND  .NOT. MDOWN()
             IF LASTKEY() = 5 .OR. LASTKEY() = 19
                RETURN -1
             ELSE
                RETURN 0
             ENDIF
          ENDIF
       ENDIF
    ENDIF
 ENDIF
 THISFORM.JZBUTTON.VISIBLE = .T.
ENDPROC

19號的前一個月是25號？

?GOMONTH(DATE(),-1)-Day(GOMONTH(DATE(),-1))+25
是不是这个意思？

没看明白，是显示今天往前提25天？

DTOS(GOMONTH(DATE(),-1)-Day(GOMONTH(DATE(),-1))+25)

要是当前日期往前提25天，那就简单了：
?DTOS(DATE()-25)

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号，还得考虑到翻年的问题，所以写函数如上，应该是你要的。

[ 本帖最后由 whinda 于 2014-1-20 12:22 编辑 ]

1樓的代碼設計怪怪的，TextBox的Valid的事件，如果用戶不是按鍵離開的，你的LastKey()取的是什麽時候的按鍵？

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

GOMONTH(DATE(),-1)  &&上月今天
GOMONTH(DATE(),1)  &&下月今天
GOMONTH(DATE(),1)-DAY(GOMONTH(DATE(),1)) &&本月的最后那天
GOMONTH(DATE(),-1)-DAY(GOMONTH(DATE(),-1))+1 上月1号

收到的鲜花

• pylyh 于 2014-01-20 22:29 送鲜花  3朵