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

[duweizhong78]

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

[Sail365]

WeekOf function

[gxgyj]

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;

[LittlePoint]

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:='星期六';

[Tensionli]

函数DayOfWeek()

[panjinfu80]

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

[DieGhost]

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

[才子鸣]

up

[solokey]

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