如何计算是每个月的一号是星期几，然后在计算星期六日的方法

怎么计算是每个月的一号是星期几，然后在计算星期六日的方法
我做一个考勤系统，怎么计算是每个月的一号是星期几，然后在计算星期六日的方法
谢谢大家指教。

[解决办法]
uses DateUtils;

function GetWeek(Date: TDateTime): Word; //返回值1-7 1表示周一，7表示周日
var
FirstDay: TDateTime;
begin
FirstDay := StrToDate(FormatDateTime('yyyy-mm', Date) + '-01');
Result := DayOfTheWeek(FirstDay);
end;
[解决办法]

Delphi(Pascal) code

var  FirstDay: TDateTime;begin  FirstDay := StrToDate('2009-11-01');  if DayOfTheWeek(FirstDay) = 7 then  showmessage('星期六是 '+datetostr(incweek(endoftheweek(FirstDay)-1)))  else showmessage('星期六是 '+datetostr((endoftheweek(FirstDay)-1)));  if DayOfTheWeek(FirstDay) = 7 then  showmessage('星期天是 '+datetostr(endoftheweek(FirstDay)))  else showmessage('星期天是 '+datetostr(endoftheweek(firstday)));end;