关于日期函数操作的问题

Question

知道今天的期。2003-02-21
如何得到
1.
本周的起始日期和终止日期  2003-02-16 到 2003-02-222.
上周的起始日期和终止日期  2003-02-09 到 2003-02-153.
本年的起始日期和终止日期  2003-01-01 到 2003-12-314
上年的起始日期和终止日期  2002-01-01 到2002-12-31谢谢

Answer 1

1　＆　2。　用dayofweek算出今天是星期几，再去推导

Answer 2

var
  theday:integer;
  theweekend,theweekbegin:TdateTime; 
begin
  theday:=DayOfWeek (now-1)  //得到今天是周几
  theweekend:=now+(7-theday);  //本周周末
  theweekbegin:=theweekend-6其他的加减就可以

Answer 3

1:StartOfTheWeek
  endoftheweek
4:startoftheyear
  endoftheyear