如题 谢谢

解决方案 »

  1.   

    ShowMessage(FormatDateTime('ddd', now));
      

  2.   

    sorry 
    是dayofweek
    或dayoftheweek
      

  3.   

    DayofWeek(DT) 傳回星期几的整數值
    1=Sunday
    ..
    ..
    7=saturday
      

  4.   

    sql sever 2000:
    DatePart(Weekday,getDate())返回当日星期,1为星期日,7为星期六
      

  5.   

    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;
    另外注意Edit1.Text中的输入格式,比如2001-11-11是合法的