De 7 datoer

Hvad snakker du om? Vil du gerne have en dato-funktion?

Denne kan vel hjælpe dig på vej :)

function UgeTilDato(Ugenr,Aar:Integer):TDateTime;
begin
  Result:=EncodeDate(Aar,1,FirstWeekDate);
  Result:=Result+(Ugenr-1)*7-((DayOfWeek(Result)+(7-FirstWeekDay)) mod 7);
end;

Den returnerer den første dato i ugen.

/SpEeDy

glemte lige variablerne :)


function UgeTilDato(Ugenr,Aar:Integer):TDateTime;
var
  FirstWeekDay  : Integer = 2;
  FirstWeekDate : Integer = 4;
begin
  Result:=EncodeDate(Aar,1,FirstWeekDate);
  Result:=Result+(Ugenr-1)*7-((DayOfWeek(Result)+(7-FirstWeekDay)) mod 7);
end;

/SpEeDy

ups, jeg mente konstanterne  :)

function UgeTilDato(Ugenr,Aar:Integer):TDateTime;
const
  FirstWeekDay  : Integer = 2;
  FirstWeekDate : Integer = 4;
begin
  Result:=EncodeDate(Aar,1,FirstWeekDate);
  Result:=Result+(Ugenr-1)*7-((DayOfWeek(Result)+(7-FirstWeekDay)) mod 7);
end;

/SpEeDy

Og her en færdig som returnerer et array med datoer:

type
    TDatoer = array of TDateTime;

function UgeTilDatoer(Ugenr,Aar:Integer): TDatoer;
const
  FirstWeekDay  : Integer = 2;
  FirstWeekDate : Integer = 4;
begin
  SetLength(Result, 7);
  Result[0]:=EncodeDate(Aar,1,FirstWeekDate);
  Result[0]:=Result[0]+(Ugenr-1)*7-((DayOfWeek(Result[0])+(7-FirstWeekDay)) mod 7);
  Result[1]:=Result[0] + 1;
  Result[2]:=Result[0] + 2;
  Result[3]:=Result[0] + 3;
  Result[4]:=Result[0] + 4;
  Result[5]:=Result[0] + 5;
  Result[6]:=Result[0] + 6;
end;


/SpEeDy