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

Question

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

Answer 1

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;

Answer 2

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;

Answer 3

var
  FirstDay: TDateTime;
begin
  FirstDay := StrToDate('2009-11-01');
  showmessage('第一天是 '+formatdatetime('DDDD',firstday));  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;

Answer 4

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;