根据一个日期字符串得到此日期是周几的方法

atiger

调用 DateUtils.DayOfTheWeek ，返回值为 1～7  的数值类型。

参考代码详细如下：

procedure TMainForm.btnShowDayClick(Sender: TObject);
var
  lDay: integer;
begin
  lDay := DateUtils.DayOfTheWeek(SysUtils.Now);
  case lDay of
    1:
      jsDialogs.ShowMsg('星期一', '');
    2:
      jsDialogs.ShowMsg('星期二 ', '');
    3:
      jsDialogs.ShowMsg('星期三', '');
    4:
      jsDialogs.ShowMsg('星期四', '');
    5:
      jsDialogs.ShowMsg('星期五', '');
    6:
      jsDialogs.ShowMsg('星期六', '');
    7:
      jsDialogs.ShowMsg('星期天', '');
  end;
end;