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

Question

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

Answer 1

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

Answer 2

uses dateutils;
...
//返回一个日期是一周中的第几天
DayOfWeek()   //这个是星期一为一周第1 天为标准
DayOfTheWeek() //这个是星期天为一周第1 天为标准

Answer 3

不好意思，笔误，刚好说反了
应该是
DayOfWeek()   //这个是星期天为一周第1 天为标准
DayOfTheWeek() //这个是星期一为一周第1 天为标准