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

NolanDing

已于 2023-03-31 18:15:26 修改

阅读量767

点赞数

分类专栏： delphi常用函数文章标签： delphi

于 2023-03-31 12:45:21 首次发布

本文链接：https://blog.csdn.net/gust2013/article/details/129877390

版权

delphi常用函数专栏收录该内容

38 篇文章

订阅专栏

这些Delphi函数用于确定给定日期是星期几，包括IsSunday到IsSaturday，以及IsWeekday和IsWeekend函数，分别用来检查是否为工作日和周末。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

应用场景

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

函数代码

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;