Hallo zusammen,
ich benutze hier aus der Code-Lib folgende Funktion:
Hier zeigt Alex_ITA01 wie es möglich ist, anhand eines Datums die zugehörige Kalenderwoche zu ermitteln. Für Delphi 6 und höher, geht dies genau so gut mit WeekOfTheYear (
Unit: DateUtils), doch für die Benutzer älterer Delphi-Versionen ist dies mit folgendem Code möglich:
Delphi-Quellcode:
function GetKW(Date: TDateTime): Integer;
var
Day: Integer;
Y, M, D: Word;
begin
Day := DayOfWeek(Date) - 1;
if (Day <= 0) then
Day := 7;
DecodeDate(Date + 4 - Day, Y, M, D);
result := round(((Date + 8 - Day) - EncodeDate(Y, 1, 1)) / 7);
end;
Wenn ich aber diese verwende, wird mir die Kalenderwoche für den 10.01.2008 falsch berechnet?!
@Edit: Bekomme als Ergebnis '1', sollte aber 2 ausspucken...
Hat jemand eine Idee warum das so ist?
Ich habe die WeekOfTheYear Funktion nicht zur Verfügung!
Danke