请问如何在delphi中懂得今天是星期几？（100分相送）

Question

请回到E-Mail:[email protected]。谢谢

Answer 1

uses DateUtils;DayOfTheWeek(Date)

Answer 2

uses DateUtils;DayOfTheWeek(Date)

Answer 3

showmessage( formatdatetime('ddd',now));

Answer 4

DayOfWeek(Date());//星期1、2、3、4、5、6、日    2、3、4、5、6、7、0 //DayOfWeek

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(dayoftheweek(now)));
end;星期日是 1

Answer 6

DayOftheWeek(Date());//星期1、2、3、4、5、6、日    1、2、3、4、5、6、7 //DayOftheWeek

Answer 7

to死树，哈哈，难得遇到一个问题简单分数又高的，来的人当然多啦。
就是不知道搂主是否讲信用给分。
想看中文星期用formatdatetime('ddd',now);