Kalenderwochen Funktion Falsch?

[x000x]

Moin moin,

mir ist gestern aufgefallen, dass diese funktion wohl doch fehlerhaft ist.
Das Problem liegt wohl hier:
((Date + 8 - Day) - EncodeDate(Y, 1, 1)) / 7 Folgender aufruf zeigt den Fehler:

Delphi-Quellcode:

ShowMessage(IntToStr(WeekOfDate(StrToDateTime('06.01.2010 11:59:59')))+#13#10+
            IntToStr(WeekOfDate(StrToDateTime('06.01.2010 12:00:00'))));