在Delphi中怎么确定某一天是星期几呢？用函数还是SQL语句？

Question

dayofweek(2002-02-20)=6,是怎么回事？应该是3才对呀

Answer 1

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;

Answer 2

DayOfWeek(StrToDate('2002/2/20'));//等于4
也就从星期日开始的第四天

Answer 3

错了是四个d,FormatDateTime('dddd',now);

Answer 4

chechy，怎么不能保存当前页面了？

Answer 5

使用DayOfWeek函数返回值为Integer，1表示星期天，7表示星期六
也可以使用DateTimeToString过程Format控制转换格式，Result保存字符串

Answer 6

当前页面可以保存的。只不过特殊一点，可以看我的帖子
http://www.csdn.net/expert/topic/525/525030.xml

Answer 7

dayofweek(2002-02-20),怎么能够这样用呀，2002-02-20＝1980，即代表日期1905-6-2！！！
dayofweek(strtodate('2002-02-20'))=3,