delphi 取得汉文星期几

// 取得汉文星期几

function WeekDay(const CuDate: TDateTime): string;

begin

  Result := Copy('日一二三四五六', DayOfWeek(CuDate) * 2 - 1, 2);

end;