Первый [понедельник] месяца, второй [четверг] месяца и т. Д. Delphi

Question

Использование Delphi, мне нужна функция для оценки текущей даты и посмотреть, есть ли это, например, третье воскресенье месяца и т. Д. .

в псевдокоде:

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

Другая функция будет необходима для расчета второго, третьего, Forth и последний месяца. Кажется, что 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 на семь.