| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 768 人关注过本帖
标题:日期修改
只看楼主 加入收藏
pylyh
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2013-8-26
结帖率:56.25%
收藏
已结贴  问题点数:20 回复次数:12 
日期修改
请大家帮忙,例如今天是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
2014-01-19 23:10
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:4 
19號的前一個月是25號?

授人以渔,不授人以鱼。
2014-01-19 23:14
fyyylyl
Rank: 8Rank: 8
等 级:贵宾
威 望:17
帖 子:313
专家分:820
注 册:2006-5-22
收藏
得分:4 
?GOMONTH(DATE(),-1)-Day(GOMONTH(DATE(),-1))+25
是不是这个意思?

2014-01-20 08:48
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:4 
没看明白,是显示今天往前提25天?

相互学习,互相交流,共同提高。
2014-01-20 10:24
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:4 
DTOS(GOMONTH(DATE(),-1)-Day(GOMONTH(DATE(),-1))+25)
2014-01-20 10:34
qjbzjp
Rank: 13Rank: 13Rank: 13Rank: 13
来 自:尧的故乡
等 级:贵宾
威 望:48
帖 子:1914
专家分:4397
注 册:2007-3-14
收藏
得分:0 
要是当前日期往前提25天,那就简单了:
?DTOS(DATE()-25)

相互学习,互相交流,共同提高。
2014-01-20 10:39
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:4 
程序代码:
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 编辑 ]
2014-01-20 12:20
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
1樓的代碼設計怪怪的,TextBox的Valid的事件,如果用戶不是按鍵離開的,你的LastKey()取的是什麽時候的按鍵?

授人以渔,不授人以鱼。
2014-01-20 13:53
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:989
专家分:4966
注 册:2013-2-16
收藏
得分:4 
当月份为1时,往上翻就是12月,上一年就应=当前年-1 ,这个问题你必须考虑进去。
其余的,代码本身并不难写,就不啰嗦了。
2014-01-20 14:27
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
GOMONTH(DATE(),-1)  &&上月今天
GOMONTH(DATE(),1)  &&下月今天
GOMONTH(DATE(),1)-DAY(GOMONTH(DATE(),1)) &&本月的最后那天
GOMONTH(DATE(),-1)-DAY(GOMONTH(DATE(),-1))+1 上月1号
收到的鲜花
  • pylyh2014-01-20 22:29 送鲜花  3朵  
2014-01-20 15:22
快速回复:日期修改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048479 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved