关于计算时间的问题

Question

我用的是datetimepicker控键，控键name为date1  。
  假如date1种的日期是2004/01/15。
  我想根据这个日期得到该日期（2004/01/15）所在的这个星期的星期1(2004/01/12)和星期日(2004/01/18)的日期是多少?  我想得到上面后面两个括号里的值请问怎么实现？

Answer 1

uses DateUtils;
procedure TfrmMain.btnDatatimeClick(Sender: TObject);
var
  today: TDate;
  day: integer;
begin
  today:=date;
  day:=DayOfTheWeek(today);
  memDate.Lines.Add(FormatDatetime('"Monday of this week:" yyyy-MM-dd',today-day+1));
  memDate.Lines.Add(FormatDatetime('"Sunday of this week:" yyyy-MM-dd',today+(7-day)));end;

Answer 2

我想把获得的两个值分别赋给Label1和Label1的 caption

Answer 3

Label1.Caption:=DateToStr(today-day+1);

Answer 4

不行啊，我运行了，提示
  
There is no overloaded version of 'DateToStr' that can be called with these arguments

Answer 5

uses dateutils;
var
  d:TDate;
begin 
  d:=strtodate('2004-01-15');            
  incday(d,7-DayOfWeek(d)+1);          //星期日(2004-01-18)
  incday(d,2-DayOfWeek(d));            //星期1(2004-01-12)
end;

Answer 6

晕！希望楼主能发现 noil0125(珏心) 的错误。
估计比较困难。

Answer 7

再次提醒一次吧，楼主，noil0125的代码，检验正好是星期天的情况。