Dage i uge

Kan du ikke bare rette denne til ?

http://www.swissdelphicenter.com/en/showcode.php?id=863

Stoney

Ser ud til at virke. Takker :)

Snowball

Til andre der kunne være interesseret i det samme, så endte det med nedenstående:

procedure TForm1.GetDaysInWeek();
var
  WeekDate: TDate;
  DoW, i, j, DateOffset: Integer;
  DayArray: array[1..7] of TDateTime;
begin
  WeekDate := CDate.CalendarDate;
  j := 1;
  for i := 2 to 8 do begin
    DoW := DayOfWeek(WeekDate);
    if DoW = 1 then DateOffset := - 6
    else
      DateOffset := Dow - i;

    DayArray[j] := WeekDate - DateOffset;
    inc(j);
  end;

  Listbox1.Clear;
  for i := 1 to 7 do
    ListBox1.Items.Add(DateTimeToStr(DayArray[i]));
end;

Snowball