Delphi中判断一个日期是否是星期几、周末、工作日

应用场景

特地的场合会用到，比如每天做不同的任务时就会需要用到。

函数代码

function IsSunday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 1;
end;
function IsMonday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 2;
end;
function IsTuesday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 3;
end;
function IsWednesday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 4;
end;
function IsThursday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 5;
end;
function IsFriday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 6;
end;
function IsSaturday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) = 7;
end;

//星期一到星期五为工作日
function IsWeekday(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) in [2..6];
end;
//星期日，星期六为周末
function IsWeekend(const DT: TDateTime): Boolean;
begin
  Result := SysUtils.DayOfWeek(DT) in [1, 7];
end;