DayMonday DayWednesday date mm.

dag  + dato?

Øhh... ja...

Evt. bare datoen.... Men datoen må kun sættes ind hvis det er en mandag eller onsdag...

Prøv det her :

function GetNextMondayFromDate(aDate: TDateTime): TDateTime;
begin
  Result := aDate;
  while DayofWeek(Result) <> 2 do
    Result := Result + 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  aDate: TDateTime;
begin
  ComboBox1.Clear;
  aDate := now;
  for i := 1 to 20 do
  begin
    aDate := GetNextMondayFromDate(aDate);
    ComboBox1.Items.Add(FormatDateTime('dddd "d." ' + LongDateFormat, aDate));
    aDate := aDate + 2;
    ComboBox1.Items.Add(FormatDateTime('dddd "d." ' + LongDateFormat, aDate));
  end;
end;

Jens B

Tusinde tak borris... Det var lige hvad jeg søgte :)