7 dage

med nedenstående funktion

function DayOfWeek(Date: TDateTime): Integer;

Description

DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.

Note:    DayOfWeek is not compliant with the ISO 8601 standard, which defines Monday as the first day of the week. For an ISO 8601 compliant version, use the DayOfTheWeek function instead.

Lidt kode

procedure TForm1.Button1Click(Sender: TObject);
begin
  Case DayOfWeek(Now) of
    1 : Label1.Caption := \'Søndag\';
    2 : Label1.Caption := \'Mandag\';
    7 : Label1.Caption := \'Lørdag\';
  end;
end;

tak for hjælpen :-)