给我一个日期，我如何知道该天是礼拜几？(85分)

最好有现成的函数！

result:=dayofweek(date)
1 sunday ....7

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;

那有没有判断该天是当月第几周的函数？

假设下列条件：
若第1周天数>=4，则为第1周，若该月实际所跨周数为5，则第4、5周为第4周；
若第1周天数<4，则第1、2周为第1周，若该月实际所跨周数为6，则第5、6周为第4周；
总之一个月最多只有4周，

我想得到某日期为该月的第几周，这个函数怎么实现？

多人接受答案了。