本月的第一个[星期一]，本月的第二个[星期四]等。德尔福

Question

使用Delphi，我需要一个函数来评估当前日期，并查看它是否是例如本月的第三个星期天等。

伪代码：

function IsFirst(const CurrentDateTime: TDateTime; const Day: Word): Boolean; 
/// Day can be 1-7 (monday to sunday) 
begin 
    Result:= ?? 
end; 

将需要另一个函数来计算二，三，四月份的最后和。 DateUtils似乎没有那样的东西。有任何想法吗？

Answer 1

此功能是你所需要的：

function IsFirst(const DateTime: TDateTime; const Day: Word): Boolean; 
begin 
    Result := (DayOfTheWeek(DateTime)=Day) and 
    InRange(DayOfTheMonth(DateTime), 1, 7); 
end; 

为第二次出现的等效功能是：

function IsSecond(const DateTime: TDateTime; const Day: Word): Boolean; 
begin 
    Result := (DayOfTheWeek(DateTime)=Day) and 
    InRange(DayOfTheMonth(DateTime), 8, 14); 
end; 

我敢肯定，你可以填写详细信息第三，第四和第五。你可能更喜欢写这样一个单一的一般功能：

function IsNth(const DateTime: TDateTime; const Day: Word; 
    const N: Integer): Boolean; 
var 
    FirstDayOfWeek, LastDayOfWeek: Integer; 
begin 
    LastDayOfWeek := N*7; 
    FirstDayOfWeek = LastDayOfWeek-6; 
    Result := (DayOfTheWeek(DateTime)=Day) and 
    InRange(DayOfTheMonth(DateTime), FirstDayOfWeek, LastDayOfWeek); 
end; 

Answer 2

这可以使用简单的数学来完成。

获取DayOfTheWeek并将DayOf除以7。