Wie benutze ich diese Funktion

[FlatG]

Delphi-Quellcode:

function WeekToDate(AYear,AWeek,ADay:Integer):TDateTime;
begin
  Result:=EncodeDate(AYear,1,FirstWeekMinDays);
  Result:=Result+(AWeek-1)*7-((DayOfWeek(Result)+(7-FirstWeekDay)) mod 7)+ADay-1;
end;

habe die Unit korrekt eingebunden, kann auch mit anderen Funktionen bereits arbeiten, aber irgendwie check ich net, wie ich das Datum, dass diese Funktion erzeugt, ausgeben kann, so klappts jedenfalls nicht

test   := WeekToDate(2003,curr_week_number,1);

[Touchdown]

Zur Visuallisierung solltest du es in ein String umwandeln.

z.B. mit DateTimeToStr.

Ausgabe an ein Label oder so, sollte dann kein Problem mehr sein für dich.