如何用程序自动控制日期范围在当月或指定月中？-----在线等待ing.....

同上。 问题点数：50、回复次数：5Top

1 楼sunzhiquan（欧阳炎炎）回复于 2004-05-03 15:27:10 得分 5

具体一点，没听明白Top

2 楼lxftwo（小小人儿）回复于 2004-05-03 17:17:06 得分 0

比如说，在程序运行时，当需要显示一些带有日期值的记录时，用什么查询方法使日期是在一个月中，如2004.1.1-2004.1.31或是2004.4.1-2004.4.30的记录，不是让用户自己去输入日期的范围！Top

3 楼siwuge（五哥）回复于 2004-05-03 19:20:00 得分 5

datepicker2.date:=datepicker1.date+30Top

4 楼lxftwo（小小人儿）回复于 2004-05-07 01:18:44 得分 0

上面“五哥”的方法我知道，但没理解我的意思。  
  我重说一次，比如说客户运行程序时，日期是4月15日，那么程序里显示的记录则都是4月1日以后所发生的记录，并不是加上30天的时间，而是控制在当月。Top

5 楼miky（miky）回复于 2004-05-07 01:25:24 得分 40

var  
      StartDate,EndDate,ADate:TDate;  
      Y,Y,D:Word;  
      DecodeDate(ADate,   Y,   M,   D   );  
      StartDate   :=   EncodeDate(   Y,   M,   1   ));       //当前月第一天  
      DecodeDate(IncMonth(ADate,   1   ),   Y,   M,   D   );  
      EndDate   :=   EncodeDate(   Y,   M,   1   )   -   1   ;     //最后一天。  
   
  有了StartDate,EndDate,Select语句就好写了。Top

相关问题

• 程序
• 日期
• adate
• enddate
• startdate
• 记录
• 月

• 帖主：lxftwo
• sunzhiquan
• siwuge
• miky

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载