Delphi Wie benutze ich diese Funktion

Thema durchsuchen

Ansicht

Themen-Optionen

Wie benutze ich diese Funktion

Ein Thema von FlatG · begonnen am 24. Mär 2003 · letzter Beitrag vom 24. Mär 2003

Vorheriger Beitrag

Nächster Beitrag

FlatG

Registriert seit: 31. Jan 2003
21 Beiträge

Delphi 5 Professional

Wie benutze ich diese Funktion

24. Mär 2003, 10:19

markieren

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