첫 번째 [Monday], 두 번째 [Thursday] 등. Delphi

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 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로 나눕니다.

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

두 번째 발생에 대한 해당 기능은 다음과 같습니다 :