回: blueshrimp(天空还下着沙)
主要是这几个函数的问题,能给我那几个函数吗?

解决方案 »

  1.   

    var yy,mm,dd,ww:Word;DeCodeDate(Date,yy,mm,dd);ww:=DayOfWeek(Date);SQL:    Select 日期 From Table Where 日期 Between :Start and :End
       or   Select 日期 From Table Where 日期 >= :StartDate 
                                    and  日期 <  :EndDate
    ParamByName('StartDate').asDateTime:=开始日期;
    ParamByName('EndDate').asDateTime:=结束日期; 
              开始日期               结束日期年份段: EnCodeDate(yy,1,1) --- EnCodeDate(yy+1,1,1)月份段: EnCodeDate(yy,mm,1) --- EnCodeDate(yy,mm+1,1)
                                    if mm=12 then mm:=1 yy:=yy+1本周:   Date-ww                 Date-ww+7
      

  2.   

    比如dtDate是你的日期。
    3.比较FormatDateTime('yyyy',dtDate)=FormatDateTime('yyyy',Now)
    2.比较FormatDateTime('yyyyMM',dtDate)=FormatDateTime('yyyyMM',Now)
    1.比较WeekOfTheYear(dtDate)=WeekOfTheYear(Now)别忘uses DateUtils;靠,回复不了