DayOfWeek的用法

Question

DayOFWeek到底怎么用啊
能否举个例子
比如
2002年6月7日

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ADate: TDateTime;
  days: array[1..7] of string;
  tmpstr:string;
  year1,month1,day1:integer;
begin
  year1:=2002;
  month1:=6;
  day1:=7;
  tmpstr:=inttostr(year1)+'-'+inttostr(month1)+'-'+inttostr(day1);
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(tmpstr);
  ShowMessage(tmpstr + ' is a ' + days[DayOfWeek(ADate)]);
end;