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'))));