如何得到系统是星期几的时间？

Question

我知道日期是datetostr(date)， 时间timetostr(time)。
我以为星期是timetostr(week)。
但运行时出错。

Answer 1

DayOfWeek返回的是word型，转换：function TMainAwoke.getweek(FDate:string):string ;
begin
  case DayOfWeek(strtodatetime(FDate)) of
    1:  result:='日';
    2:  result:='一';
    3:  result:='二';
    4:  result:='三';
    5:  result:='四';
    6:  result:='五';
    7:  result:='六';
  end;
end;

Answer 2

uses
  DateUtils;Dayofweek(DataTimeValue);____________________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如霜……
{言有尽而意无穷，余意尽在不言中……}
____________________________________________________________________________

Answer 3

const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
LabelDate.Caption := cWeekCn[DayOfWeek(Now)];
end;