Đầu tiên [Thứ Hai] của tháng, Thứ Hai [Thứ Năm] của tháng, v.v. Delphi

Question

Sử dụng Delphi, tôi cần một hàm để đánh giá ngày hiện tại và xem liệu nó có, ví dụ, Chủ Nhật Thứ Ba của tháng, v.v. .

trong giả:

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

chức năng khác sẽ là cần thiết để tính toán thứ hai, thứ ba, Forth và cuối của tháng. DateUtils dường như không có gì giống như vậy. Bất kỳ ý tưởng?

Answer 1

Chức năng này là những gì bạn cần:

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

Chức năng tương đương cho sự xuất hiện thứ hai là:

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

tôi chắc chắn rằng bạn có thể điền các chi tiết cho thứ ba, thứ tư và thứ năm . Bạn có thể muốn viết một chức năng chung duy nhất như sau:

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

Điều này có thể được thực hiện bằng cách sử dụng toán học đơn giản.

Lấy DayOfTheWeek và chia DayOf cho bảy.