求救：如何计算没月的1号为星期几？？

Question

求救：如何计算没月的1号为星期几？？
高手帮忙

Answer 1

function ToCnWeek(const CuDate: TDateTime): string;
var
  w: integer;
  week: string;
begin
  w := DayOfWeek(CuDate);
  case w of
    1: week := '日';
    2: week := '一';
    3: week := '二';
    4: week := '三';
    5: week := '四';
    6: week := '五';
    7: week := '六';
  end; {case}
  Result := '星期' + week;
end;

Answer 2

function GetDayoOfWeek(sDate: string): integer;
var
  dt: TDatetime;
begin
  dt := StrToDate(sDate);
  Result := DayOfWeek(dt);
end;//传入一个字符串,如: '2005-07-08',返回这天的星期数