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);