delphi 中是否有此函数：它可获得当前是礼拜几？(100分)

delphi 中是否有此函数：调用它可获得当前是礼拜几。
多谢了！

function DayOfWeek(Date: TDateTime): Integer;

使用DayOfWeek函数，看如例子：
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;

你自己知道某一天的星期，然后拿其他日期和他求出相差天数，再和7
求余，不就知道星期几了？

可惜！又晚了一步！8(

多人接受答案了。