GetMonday, GetFriday - Funktion -> GetSunday

[Yheeky]

Hi,

ich habe im Internet die folgenden Funktionen GetMonday und GetFriday gefunden. Hier sind sie:

Code:

function GetMonday(RefDay: TDate): TDate; 
var 
  DoW: Integer; 
  DateOffset: Integer; 
begin 
  DoW := DayOfWeek(RefDay); 
  // Montag der Woche 
  if DoW = 1 then DateOffset := -6  
  else  
    DateOffset := Dow - 2; 
  Result := RefDay - DateOffset; 
end; 

function GetFriday(RefDay: TDate): TDate; 
var 
  DoW: Integer; 
  DateOffset: Integer; 
begin 
  DoW := DayOfWeek(RefDay); 
     { 
     Friday of current week 
     Freitag der Woche 
     } 
  if DoW = 1 then DateOffset := -2  
  else  
    DateOffset := Dow - 6; 
  Result := RefDay - DateOffset; 
end;

Hierzu möchte ich jetzt eine GetSunday Funktion basteln, das hat aber bei mir nicht so richtig geklappt. Könnte mir da vielleicht jemand unter die Arme greifen? Wäre nett. Danke schonmal!

Frohes Fest!

Gruß Yheeky

[nailor]

Wenn die Funktionen klappen, dann müsste immer ein tag vor Montag undd zwei nach Freitag ein Sonntag sein. Das muss doch zu machen sein!

[Christian Seehase]

Moin Yheeky,

so sollte es gehen:

Delphi-Quellcode:

function GetSunday(RefDay: TDate): TDate;
var
 DoW: Integer;
 DateOffset: Integer;
begin
 DoW := DayOfWeek(RefDay);
 if DoW = 1 then DateOffset := 0
 else
  DateOffset := Dow - 8;
 Result := RefDay - DateOffset;
end;

[Yheeky]

Okay, danke für den Code.

Gruß Yheeky