Wochennummer aus Datum

[Marco Haffner]

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 ?

[Yheeky]

Yep, genau das war´s. Muss es nur noch ein bisschen umbauen. Danke!

Frohes Fest!

Gruß Yheeky