如何得到DateTimePicker控件中日期是星期几？

Question

如何得到DateTimePicker控件中日期是星期几？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
 case dayofweek(now) of
  1: Edit1.text:='星期天';
  2:Edit1.text:='星期一';
  3:Edit1.text:='星期二';
  4:Edit1.text:='星期三';
  5:Edit1.text:='星期四';
  6:Edit1.text:='星期五';
  7:Edit1.text:='星期六';
end;
end;  

Answer 2

case dayofweek(DateTimePicker1.date) of
  1:Edit1.text:='星期天';
  2:Edit1.text:='星期一';
  3:Edit1.text:='星期二';
  4:Edit1.text:='星期三';
  5:Edit1.text:='星期四';
  6:Edit1.text:='星期五';
  7:Edit1.text:='星期六';

Answer 3

函数DayOfWeek()就是用这个好用得不了

Answer 4

Const
    theWeek:array[1..7] of string=('星期一','星期二','星期三','星期四','星期五','星期六','星期日');
begin
Edit1.text:=theCHSWeek[dayoftheWeek(DateTimePicker1.date)];
end;

Answer 5

LongDayNames[DayOfWeek(DateTimePicker.Date)];
标准答案.嘿嘿