Wie kann man die KW (Kalenderwoche) eines Datums bestimmen???, D2

[mik l]

[Uli Becker]

<pre>
function BeginnKalenderWoche(jahr,woche: integer): TDate;
var Startdatum : TDate;
Wochentag : integer;
begin
Startdatum := strToDate('1.1.' + inttostr(jahr));
wochentag := DayOfWeek(Startdatum);
case wochentag of
1 : Startdatum := Startdatum + 1;
2 : Startdatum := Startdatum;
3..7 : Startdatum := Startdatum + (9-wochentag);
end;
result := Startdatum + ((woche-1)*7);
end;

function GetKalenderWoche(datum: TDate): integer;
var year,month,day : word;
differenz : integer;
begin
DecodeDate(datum,year,month,day);
Differenz := round(datum - BeginnKalenderWoche(year,1));
if Differenz < 7 then
result := 1
else
result := 1 + (differenz div 7);
end;
</pre&gt

[Hagen Reddmann]

Hi

Suche im Forum nach "Kalenderwoche". Diese Frage wurde schon mehrmals sehr ausführlich beantwortet :=

Gruß Hage

Alles klar, danke