如何获取今天是星期几？

Question

function DayOfWeek(Date: TDateTime): Integer;

Answer 1

回复人： kuangning(郎之间)(穷人)(其实什么都不是) (  ) 信誉：100  2002-06-25 10:33:00  得分:0  
 
 
  function DayOfWeek(Date: TDateTime): Integer;
  
 
同意！！！！！！

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' is a ' + days[DayOfWeek(ADate)];
end;

Answer 3

使用tMonthCalendar控件
b:=MonthCalendar1.date;
case dayofweek(b) of
 1:   xingqi:='星期日';
 2:   xingqi:='星期一';
 3:   xingqi:='星期二';
 4:   xingqi:='星期三';
 5:   xingqi:='星期四';
 6:   xingqi:='星期五';
 7:   xingqi:='星期六';
 end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
const weeks:array [1..7]of string =('日','一','二','三','四','五','六');
begin
   Edit1.Text:=Weeks[DayOfWeek(now)];
end;