Kalenderwoche aus Datum ermitteln

[Sharky]

Zitat von FBrust:

Hallo,

weiß jemand, wie man aus einem gegebenen Datum die dazugehörige Kalenderwoche ermittelt?

Grüsse
Frank

Hai,

teste mal das hier:

Delphi-Quellcode:

function GetWeekOfYear(ADate:TDateTime):byte;
var Year,Month,Day : Word;
begin
  ADate:=ADate-((DayOfWeek(ADate)-2+7) mod 7)+ 7-4;
  DecodeDate(ADate, Year, Month, Day);
  Result:=(Trunc(ADate-EncodeDate(Year,1,1)) div 7)+1;
end;