怎样算出某年某月的某天是星期几?

Question

如题.

Answer 1

uses DateUtils;DayOfTheWeek函数，返回指定TDateTime变量为该周的第几天，返回值介于1至7，星期一为第一天。

Answer 2

var
  year,month,day:word;
  td:tdatetime;
  i:integer;
begin
  td:=encodedate(year,month,day);
  i:=dayofweek(td);
  showmessage('这一天是星期'+inttostr(i));
end;

Answer 3

错了个字母
DayOfWeek('2003-1-1')

Answer 4

Uses SysUtils;DayOfWeek(Date);返回是1 到 7。

Answer 5

uses DateUtils;
DayOfWeek('2003-3-15')

Answer 6

DayOfWeek(Now());  1=星期天，2=星期一,....7=星期六