关于日期操作的问题

Question

uses Dateutils;showmessage(datetostr(StartOftheYear(now())));
showmessage(datetostr(EndOfTheYear(now())));得到了今年的起始日期和终止日期.上周的起始日期和终止日期  2003-02-09 到 2003-02-15
和
上年的起始日期和终止日期  2002-01-01 到2002-12-31
怎样求得

Answer 1

上周的起始日期和终止日期  ：自己编个函数吧。
上年的起始日期和终止日期  ：showmessage(datetostr(startOftheYear(StartOftheYear(now()-1))));
showmessage(datetostr(endOftheYear(StartOftheYear(now()-1))));

Answer 2

谢谢楼上的。
showmessage(datetostr(endOftheYear(StartOftheYear(now)()-1)));
-1还应该放在后面一点才正确了。

Answer 3

上周的起始日期和终止日期：
ShowMessage(DateToStr(IncDay(StartOfTheWeek(Now), -7)));
ShowMessage(DateToStr(IncDay(EndOfTheWeek(Now), -7)));
这里起始星期是从星期一开始算的，你如果要从星期日开始算就把 -7 改为 -8 。

Answer 4

function StartOfTheWeek(myDate:TDateTime):Tdatetime;
//计算指定日期所在星期的第一天的日期 (每周第一天为星期一）
var
  nth:integer;
begin
  nth:=DayOfTheWeek(mydate);
  result:= myDate-nth+1;
end;
function EndOfTheWeek(myDate:TDateTime):Tdatetime;
//计算指定日期所在星期的最后一天的日期 （每周第一天为星期一）
var
  nth:integer;
begin
  nth:=DayOfTheWeek(mydate);
  result:= myDate-nth+7;
end;

Answer 5

showmessage(datetostr(endOftheYear(StartOftheYear(now)()-1)));
谢谢，此句错误纯属笔误。
计算本周的函数我已经写好了，至于上一周的，你应该可以推出来吧。（都-7）