怎么取时间信息中的星期几？

Question

用DateTimePicker控件输入时间，，怎么取出星期几呢？

Answer 1

uses
  DateUtilsfunction DayOfTheWeek(const AValue: TDateTime): Word;dayoftheweek(DateTimePicker1.Date）返回 1 到 7，对应 星期一 到 星期天

Answer 2

case DayOfWeek(Now) of
    1:WeekStr:='星期日';
    2:WeekStr:='星期一';
    3:WeekStr:='星期二';
    4:WeekStr:='星期三';
    5:WeekStr:='星期四';
    6:WeekStr:='星期五';
    7:WeekStr:='星期六';
  end;