Start- und Enddatum einer Kalenderwoche ermitteln

[Leuselator]

Weil Weihnachten naht () ,als Ansatz hier ein bisserl source von mir, den Rest (Umkehrung von GetKalenderwoche) mußt Du Dir dann selbst basteln

Delphi-Quellcode:

function VierterJanuar(DasDatum : TDate):TDate;
begin
  Result := StrToDate('04.01.'+copy(DateToStr(DasDatum),7,MaxInt));
end;

function MyDayOfWeek(DasDatum: TDateTime):Integer;
begin
  Result := IntIf((DayOfWeek(DasDatum)-1 > 0),DayOfWeek(DasDatum)-1,7);
end;

function GetKalenderWoche(DasDatum:TDateTime): Integer;
var ErsterMontag : TDate;
begin
  ErsterMontag  := VierterJanuar(DasDatum)-MyDayOfWeek(VierterJanuar(DasDatum))+1;
  if DasDatum < ErsterMontag 
    then ErsterMontag := VierterJanuar(DasDatum-10)-MyDayOfWeek(VierterJanuar(DasDatum-10))+1;
  Result := (trunc(DasDatum-ErsterMontag) div 7)+1;
  if Result = 53 then begin
    if (DasDatum-MyDayOfWeek(DasDatum)+1) = (VierterJanuar(GetLastDay(DasDatum)+1)-MyDayOfWeek(VierterJanuar(GetLastDay(DasDatum)+1))+1)
    then Result := 1;
  end;
end;

Gruß