Hallo,
ich weiß nicht mehr wo ich es her hab', konnte es noch von einer defekten CD retten (auf der sich sämtliche Delphi Komponenten, Beispiele und Tips befanden, die ich gesammelt hatte
):
Code:
function WeekOfYear: Word;
var
Day, Month, Year : Word;
FirstDate, DateNow: TDateTime;
DateDiff : Integer;
begin
Day := SysUtils.DayOfWeek(Date) - 1;
DateNow := Date + 3 - ((6 + Day) mod 7);
DecodeDate(DateNow, Year, Month, Day);
FirstDate := EncodeDate(Year, 1, 1);
DateDiff := Trunc(DateNow - FirstDate);
Result := 1 + (DateDiff div 7);
end;
Ist es das was Du suchst ?