Kalenderwochen Funktion Falsch?

[Amateurprofi]

Zitat von mkinzler:

Zitat:

Danke. Smile Denn ich kann immer noch nicht nachvollziehen, warum es nun wichtig sein soll, 0.5 dazuzuaddieren. Grübelnd...

Wäre sogar falsch, denn dann wäre aber Mittag der nächste Tag.

Nein. Es wäre falsch, ein Trunc durchzuführen, ohne vorher 0.5 zu addieren.

Ich hab mal in die Funktion die Zwischenwerte eingefügt, da wird dann wohl jedem klar, daß ein simples Trunc nicht ausreicht.

Aufruf : XWeekOfDate(EncodeDate(2009,01,01));

Delphi-Quellcode:

function xWeekOfDate(A: TDateTime): Integer;
var
  Day: Integer;
  Y,M,D: Word;
  n:extended;
begin
  A := Int(A); // A=39814
  Day := DayOfWeek(A) -1; // Day=4
  if Day <= 0 then Day := 7; // Day=4
  DecodeDate(A +4 -Day, Y, M, D); // Y=2009
  Result := Trunc(((A +8 -Day) - EncodeDate(Y, 1, 1)) / 7); // Result = 0
  // A+8-Day = 39818
  // EncodeDate(Y,1,1) = 39814
  // (A+8-Day)-EncodeDate(Y,1,1) = 4
  // ((A+8-Day)-EncodeDate(Y,1,1))/7 = 0.5714285713
  // Result = Trunc(0.5714285713)
  // Result = 0
  Result := Trunc(0.5+((A +8 -Day) - EncodeDate(Y, 1, 1)) / 7); // Result = 1
  // Result = Trunc(0.5 + 0.5714285713)
  // Result = Trunc(1.0714285713)
  // Result = 1
end;

Ein Trunc (ohne vorher 0.5 zu addieren) würde als Resultat 0 ergeben.
Ein Trunc (bei vorheriger addition von 0.5) ergibt das korrekte Resultat 1.

Im Stillen habe ich gehofft, daß negaH mal ein paar Kommentare abgibt - scheint ihm wohl zu albern zu sein.
Übrigens @negaH : eine sehr elegante Lösung hast da gefunden.

Es wäre schön, wenn alle, die so oft "aus der Hüfte geschossene" Kommentare abgeben, vorher prüfen, ob das, was sie schreiben wollen auch korrekt ist.