最初の[月曜日]、2番目の[木曜日]などDelphi

Question

Delphiを使用して、現在の日付を評価し、それが月の第3日曜日などであるかどうかを確認する関数が必要です。擬似コードで

：

もう一つの機能は、第2、第3フォースと先月の計算に必要とされるであろう

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; 

2回目の出現のための同等の機能は次のとおりです。

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で割ります。