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