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

duweizhong78 2005-01-28 01:48:33

...全文

374 8 打赏收藏举报

写回复

8 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

solokey 2005-01-28

打赏
举报

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

才子鸣 2005-01-28

打赏
举报

DieGhost 2005-01-28

打赏
举报

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

panjinfu80 2005-01-28

打赏
举报

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

Tensionli 2005-01-28

打赏
举报

函数DayOfWeek()

LittlePoint 2005-01-28

打赏
举报

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

gxgyj 2005-01-28

打赏
举报

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;